


EXERCICES EN BASIC 
POUR AMSTRAD 


RAT AT CCC ROME ETS 















Lu 


Eu RCE RCE 0 
“er A UD € 
D DA 2 2 D 

RARE - 
Rene ere 
Me TT are 
Mes: 


















CPP 
D enetenee ce : 
rpbetphpt pt pt st 
ACTOCCCPRE 
nt. 7 2 MOIS 
| pémie 

ner 











| æ%e 









+ 


Ve. 
à 


jt 






+ 


LES 








EXERCICES EN BASIC 
POUR AMSTRAD 





Autres ouvrages relatifs à l’'Amstrad CPC 464, 664 ou 6128 : 





— La découverte de l'Amstrad - Daniel-Jean David 

— Amstrad en famille - Jean-François Sehan 

— Super jeux Amstrad - Jean-François Sehan 

— 102 programmes pour Amstrad - Jacques Deconchat, adapté par 
Alain Lavenir 


— Basic Amstrad, 1. Méthodes pratiques - Jacques Boisgontier et Bruno 
Césard 

— Basic Amstrad, 2. Programmes et fichiers - Jacques Boisgontier 

— Basic plus, 80 routines sur Amstrad - Michel Martin 

— Assembleur de l’Amstrad - Marcel Henrot 

— Clefs pour Amstrad, 1. Système de base - Daniel Martin 

— Clefs pour Amstrad, 2. Système disque - Daniel Martin et Philippe Jadoul 

— Périphériques et gestion de fichiers sur Amstrad - Daniel-Jean David 

— Photographie sur Amstrad et Apple Il - Pierrick Moigneau et Xavier de la 
Tullaye 

— Super générateur de caractères sur Amstrad - Jean-François Sehan 

— |A. sur Amstrad CPC - Thierry et Eric Lévy-Abégnoli 

— Amstrad 3-D - Jean-Pierre Petit 





Ouvrages d'initiation : 





— Visa pour l'informatique — Jean-Michel Jégo 

— Visa pour le Basic — Jean-Michel Jégo 

— Mon ordinateur - Jean-Claude Barbance 

— Le logotron informatique - Jean-Pierre Petit 

— Les mots de la micro - Alan Freedman, adapté par Bernard Sauteur 


A paraître : ‘ 


— Clefs pour Amstrad PCW - Didier Roy et J.-J. Weyer 


Pour tout problème rencontré dans les ouvrages P.S.I. 
vous pouvez nous contacter au numéro ci-dessous : 


Numéro Vert/Appel Gratuit en France 


05 21 22 01 


(Composer tous les chiffres, même en région parisienne) 








La loi du 11 mars 1957 n'autorisant, aux termes des alinéas 2 et 3 de l'article 41, d'une part, que 
les « copies ou reproductions strictement réservées à l'usage privé du copiste et non destinées à 
une utilisation collective », et, d'autre part, que les analyses et les courtes citations dans un but 
d'exemple et d'illustration, « toute représentation ou reproduction intégrale, ou partielle, faite sans 
le consentement de l'auteur ou de ses ayants droit ou ayants cause, est illicite » (alinéa 1°" de 
l'article 40). 


Cette représentation ou reproduction, par quelque procédé que ce soit, constituerait donc une 
contrefaçon sanctionnée par les articles 425 et suivants du Code Pénal. 


© Éditions du P.S.I. - B.P. 86 - 77402 Lagny/Marne cedex 
1986 
ISBN 2-86595-271-1 


EXERCICES EN BASIC 
POUR AMSTRAD 





MAURICE CHARBIT 


ÉDITIONS DU PS.I. 
1986 


Maurice CHARBIT est ingénieur et enseignant à l'Ecole Natio- 
nale Supérieure des Télécommunications. 


ll'est l’auteur de : 


- La découverte de l’Alice 
- Exercices en Basic pour Alice et Alice 90 


et, en collaboration avec Dominique SCHRAEN, de : 


- La découverte des MOS5 et TO7-70 
- Exercices pour MO5 et TO7-70 


SOMMAIRE 





INTRODUCTION 6 
PRÉSENTATION DES EXERCICES 7 
PREMIÈRE PARTIE : ÉNONCÉS ET ANALYSES 9 





CHAPITRE | Affichage, calculs simples, tirage de 11 
nombres aléatoires 





CHAPITRE II Calculs, manipulations de tableaux nu- 25 
mériques (recherche, classement, inser- 
tion) 








CHAPITRE III Traitements de chaînes de caractères (re- 45 
cherche, insertion, suppression de carac- 
tères), traitements de fichiers 


CHAPITRE IV Dessins, histogrammes, graphiques, 63 
tracés de fonctions, programmes musi- 
caux 





CHAPITRE V Jeux graphiques (tir à la cible, télécran, 77 
glouton, loto sportif, loto, machine à 
sous, pendu, calcul mental, mastermind, 
leçon de géographie, tours d'Hanoï, ré- 
pertoire téléphonique) 


DEUXIÈME PARTIE : SOLUTION DES EXERCICES 93 


INTRODUCTION 





CE LIVRE S'ADRESSE A TOUS CEUX QUI ONT UNE CONNAIS- 
SANCE ELEMENTAIRE DU BASIC ET SONT DÉSIREUX DE LA 
METTRE EN PRATIQUE SUR DES EXEMPLES CONCRETS. IL PER- 
METTRA AINSI DE MAITRISER LE JEU D'INSTRUCTIONS PAR LA 
RESOLUTION D'EXERCICES CLASSIQUES DE PROGRAMMATION. 


CE LIVRE COMPREND UNE PREMIÈRE PARTIE DONNANT LES 
ENONCES DES EXERCICES ET UNE SECONDE PARTIE PROPOSANT 
DES SOLUTIONS COMMENTÉES. 


LA PREMIÈRE PARTIE SE COMPOSE DE CINQ CHAPITRES. 

LE PREMIER CHAPITRE EST COMPOSÉ D'EXERCICES SIMPLES QUI 
METTENT PLUS PARTICULIÈREMENT L'ACCENT SUR UNE INS- 
TRUCTION DE FAÇON À EN COMPRENDRE PLEINEMENT L'USAGE. 
LE SECOND CHAPITRE PRÉSENTE UN RECUEIL D'EXERCICES SUR 
L'UTILISATION DU BASIC POUR RÉSOUDRE DES PROBLÈMES DE 
TYPES NUMÉRIQUE ET ARITHMÉTIQUE, TANDIS QUE LE TROI- 
SIÈME CHAPITRE EST CONSACRÉ À LA MANIPULATION DES 
CHAINES DE CARACTÈRES. DANS CES DEUX CHAPITRES, UN SOIN 
TOUT PARTICULIER EST MIS DANS LA PRÉSENTATION DE L'AFFI- 
CHAGE DES RÉSULTATS À L'ÉCRAN. 

LE QUATRIÈME CHAPITRE PROPOSE DES EXERCICES QUI UTILI- 
SENT DE FAÇON IMPORTANTE LES POSSIBILITÉS GRAPHIQUES 
ET SONORES DE VOTRE ORDINATEUR. | 
ENFIN LE CINQUIÈME CHAPITRE EST COMPOSÉ DE PROBLÈMES 
PLUS LONGS, NÉCESSITANT LA MAITRISE DES NOTIONS INTRO- 
DUITES PRÉCÉDEMMENT. 


POUR TIRER LE MEILLEUR PROFIT DE CES EXERCICES, IL EST 
CONSEILLE D'ESSAYER DE RÉSOUDRE LE PROBLÈME UNIQUE- 
MENT À PARTIR DE L'ENONCÉ, SANS SE RÉFÉRER, DANS UN PRE- 
MIER TEMPS, A L'ANALYSE PROPOSÉE. 


LA SOLUTION DONNÉE POUR LES EXERCICES DANS LA SECONDE 
PARTIE DU LIVRE, SOUS FORME D'UN LISTING COMMENTÉ, N’EST 
EVIDEMMENT PAS LA SEULE POSSIBLE. IL EST D'AILLEURS RE- 
COMMANDÉ AU LECTEUR DE LA COMPARER DE FAÇON CRITIQUE 
AUX SOLUTIONS QU'IL AURA TROUVÉES. 


PRÉSENTATION 
DES EXERCICES 


Les énoncés sont formés, en général, de trois rubriques : 


- Problème : donnant l'objectif du programme, 

- Entrée : décrivant les données que l'utilisateur devra 
fournir au cours de l'exécution du programme, 

- Sortie : indiquant ce que le programme affichera sur 
l'écran. 


L'analyse indique comment poser puis traduire le problème 
énoncé, en langage BASIC et est complétée, chaque fois qu'il 
est nécessaire, par un organigramme détaillé. 


Les solutions comprennent le listing du programme, la liste 
des variables qu'il utilise et l'explication détaillée des lignes im- 
portantes du programme (lorsque l'explication concerne un 
groupe de lignes consécutives, seuls les numéros de la première 
et de la dernière lignes sont indiqués, séparés par un tiret). 


Terminons cette présentation par quelques conseils pra- 
tiques : 


— Avant de taper un programme ou d'en charger un à partir du 
lecteur de cassettes, initialisez votre AMSTRAD en appuyant 
simultanément sur les touches SHIFT CTRL ESC. 


— De façon générale, n'hésitez pas en début de programme à 
faire une initialisation complète (encre, son, fenêtre). 
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— Si dans un programme, des tests sont effectués sur des 
chaînes de caractères entrées au clavier, vérifiez lors de l'exé- 
cution que le clavier est en mode majuscule ou minuscule 
comme le nécessitent ces comparaisons. 


— Lors de l'utilisation de l'instruction SPEED KEY, vous risquez 
de rencontrer des difficultés au clavier, si la sortie du pro- 
gramme s'effectue sans rétablir une vitesse suffisamment 
lente. Pour éviter cela, tapez 


KEY 135, “SPEED KEY 10,3" + CHR$ (13) 


La touche 7 du pavé numérique vous permet alors de revenir 
à un usage plus pratique du clavier. 


— Pour des facilités d'affichage, quelques programmes bou- 
clent : pour sortir, tapez deux fois sur la touche ESC. 


PREMIÈRE 
PARTIE 


ÉNONCÉS 
ET 
ANALYSES 
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Exercices a Solution | Exercices ee Solution 
1.1 11 94 3.6 48 152 
1.2 11 95 3.7 49 153 
1.3 12 96 3.8 51 155 
1.4 12 97 3.9 52 157 
1.5 13 98 3.10 53 159 
1.6 13 98 3.11 53 160 
1.7 14 99 3.12 55 162 
1.8 16 100 3.13 56 164 
1.9 16 101 3.14 57 165 
1.10 16 102 3.15 58 167 
1.11 17 103 3.16 59 168 
1.12 18 104 3.17 59 170 
1.13 18 105 3.18 60 172 
1.14 19 106 3.19 61 173 
1.15 19 107 3.20 62 174 
1.16 20 108 4.1 63 177 
1.17 20 109 4.2 65 178 
1.18 21 110 4.3 65 180 
1.19 21 112 4.4 66 182 
1.20 21 114 4.5 67 185 
1.21 22 115 4.6 67 187 
1.22 23 116 4.7 68 189 
1.23 23 118 4.8 69 191 
1.24 23 118 4.9 69 193 
1.25 24 119 4.10 70 195 
2.1 25 121 4.11 70 196 
2.2 27 122 4.12 71 198 
2.3 28 123 4.13 72 200 
2.4 29 124 4.14 72 201 
2.5 29 126 4.15 73 205 
2.6 30 128 4.16 74 206 
2.7 31 131 4.17 75 209 
2.8 33 132 4.18 76 211 
2.9 36 135 5.1 78 214 
2.10 36 136 5.2 78 216 
2.11 37 139 5.3 79 219 
2.12 39 140 5.4 81 221 
2.13 41 142 5.5 82 225 
2.14 42 144 5.6 83 228 
2.15 42 145 5.7 84 231 
2.16 43 146 5.8 85 232 
3.1 46 148 5.9 86 235 
3.2 46 149 5.10 87 238 
3.3 46 150 5.11 89 242 
3.4 47 151 5.12 90 246 
3.5 47 151 





CHAPITRE | 


AFFICHAGE, 
CALCULS SIMPLES, 
TIRAGE 

DE NOMBRES 
ALÉATOIRES 


EXERCICE 1.1 J{PRINT) 








PROBLÈME : affichage des initiales et de la longueur (nombre de 
lettres) du nom d'une personne. 


ENTRÉE : le nom et le prénom de la personne. 
SORTIE : les initiales et la longueur du nom. 


EXERCICE 1.2 (INPUT) 
PROBLÈME : à partir de l'année de naissance d'une personne, affi- 
cher son âge à l'intérieur d'un texte. 
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ENTRÉE : le prénom et l'année de naissance d'une personne. 
SORTIE : affichage du texte : 


Hé bien bonjour (prénom) 
Je ne répéterai à personne 
que tu as aujourd'hui (âge) ans. 


ANALYSE 


Il faut : 
1) demander le prénom de la personne. 
2) demander son année de naissance. 
3) afficher les lignes de texte (en calculant l'âge). 





EXERCICE 1.3 J(STRINGS) 






PROBLÈME : afficher une ligne et une colonne d'étoiles sur l'écran. 


ENTRÉE :un nombre L compris entre 1 et 40, un nombre C 
compris entre 1 et 25. 


SORTIE ‘affichage d'une ligne de 40 étoiles sur la Lième ligne 
et d'une colonne de 25 étoiles sur la Cième colonne. 





EXERCICE 1.4 J(INKEY$) 

PROBLÈME : afficher le code ASCII des touches frappées par l’utili- 
sateur (utiliser la fonction INKEY$). 

ENTRÉE : une touche du clavier. 

SORTIE : le code ASCII de la touche. 
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ÉNONCÉS ET ANALYSES 





EXERCICE 1.5 ] (opérations arithmétiques) 


PROBLÈME : calcul du pourcentage P d’une valeur numérique N et 
de la valeur obtenue par application de ce pourcen- 





tage. 
ENTRÉE : la valeur numérique et le taux de pourcentage. 
SORTIE :le pourcentage de la valeur numérique et la valeur 
finale. 


ANALYSE 








Entrée de la valeur 
messes numérique N et du 
taux de pourcentage P. 


La formule est : 


ENS SE _NXxP 
100 





Calcul du 
pourcentage 





DN 


O 
Z 


Affichage 
de DN et 
de N + DN 










EXERCICE 1.6 J{(LOCATE) 


PROBLÈME : calcul de la dépense annuelle approximative en nour- 
riture, à partir de la dépense quotidienne moyenne (en 
tenant compte de l'inflation). 
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EXERCICES EN BASIC POUR AMSTRAD 


ENTRÉE : dépense quotidienne en nourriture. 
SORTIE : la dépense annuelle. 
ANALYSE 


Entrée du prénom et de la 


ri 


dépense journalière. 
Calcul de Pour tenir compte de l'inflation 
la dépense ---—-—- il faut multiplier la dépense annuelle 
annuelle par 1,07 (approximation d'une inflation 


de 8 % par an). 


Affichage 
de la dépense 








EXERCICE 1.7 (IF... THEN) 


PROBLÈME : l'utilisateur doit découvrir par essais successifs un 
nombre entier entré auparavant par une autre per- 





sonne. 

ENTRÉE : le nombre à découvrir (compris entre 0 et 1000) puis 
les essais. 

SORTIE : un des messages : “Trop grand”, “Trop petit” ou bien 


“Bravo, vous avez trouvé” selon l'essai. 
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ÉNONCÉS ET ANALYSES 


ANALYSE 


Après l'entrée de l'essai, celui-ci est testé par rapport au nombre à 
deviner. S'il lui est supérieur ou inférieur, le message correspondant 
est affiché et un nouvel essai est proposé. Sinon le message “Bravo, 
vous avez trouvé” s'affiche et le programme s'arrête... 











Entrée du nombre 
N à découvrir 







Entrée d'un 
essai E 











Afficher 
"Trop petit” 









Afficher 
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EXERCICE 1.8 T(RND) 


PROBLÈME :simulation du lancer d'un dé. 


SORTIE : un nombre entier aléatoire compris entre 1 et 6. 


ANALYSE 


RND(1) donne un nombre aléatoire entre 0 compris et 1 non 
compris ; multiplié par 6 il est entre 0 compris et 6 non compris ; il 
ne reste plus qu'à en prendre la valeur entière (INT) et lui ajouter 1 
pour obtenir un nombre entier entre 1 compris et 6 compris. 

Ce qui donne en BASIC : INT(RND(1) * 6) + 1. 










EXERCICE 1.9 J{(FOR/NEXT) 


PROBLÈME : simulation du lancer de plusieurs dés. 
ENTRÉE : un nombre de dés à jeter (entre 1 et 8). 


SORTIE : la somme des nombres sortis. 








EXERCICE 1.10 J(RND) 





PROBLÈME : version améliorée de l'exercice 1.7. La machine choisit 
au hasard le nombre à trouver et compte le nombre 
d'essais nécessaires au joueur pour arriver à la solu- 


tion. 
ENTRÉE : les essais. 
SORTIE :un des messages : “Trop grand”, “Trop petit” ou 


“Bravo, vous avez trouvé en C coups”, selon l'essai. 
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ÉNONCÉS ET ANALYSES 


ANALYSE 


Le nombre d’essais est contenu dans la variable C. Pour cela, elle 
est mise à zéro au début du programme puis, à chaque essai, elle est 


augmentée de 1 (elle est “incrémentée”). Une telle variable est ap- 
pelée “compteur”. 







Début 


au hasard. Mise à zéro du 
compteur C. 


Initialisation 


Entrée d’un 
essai E 
Incrémenter 
: C 


ji du nombre à trouver N 













Afficher 
“Trop grand” 
Afficher 
“Trop petit” 


Reese + Africher : “Bravo, trouvé en C coups”. 













EXERCICE 1.11 J(RANDOMIZE, TIME) 






PROBLÈME : jeu des lettres. Le joueur choisit une voyelle ou une 
consonne au hasard et cela 9 fois. 
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EXERCICES EN BASIC POUR AMSTRAD 


ENTRÉE : choix du joueur - C pour consonne, V pour voyelle. 
SORTIE ‘affichage des 9 lettres. 
ANALYSE 


Le programme tire un nombre aléatoire, compris entre 1 et 6 si le 
joueur choisit une voyelle et entre 1 et 20 si le joueur choisit une 
consonne. Puis ce nombre N est utilisé pour extraire de la chaîne des 
voyelles ou de la chaîne des consonnes le Nième caractère. 





EXERCICE 1.12} (PI) 





PROBLÈME : écrire un programme qui calcule le périmètre et la sur- 
face d'un cercle de rayon R. 


ENTRÉE : le rayon du cercle. 
SORTIE : le périmètre et la surface du cercle. 
ANALYSE 


On rappelle que le périmètre d’un cercle est donné par la formule 
P=2 x 3,14159265 x R 
et que sa surface est donnée par 
S = 3,14159265 XRXR 
Le nombre 3,14159265 qui intervient dans les deux formules peut 
être obtenu directement en utilisant l'instruction PI. 
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EXERCICE 1.13 J{(PRINT USING) 


PROBLÈME : écrire un programme qui demande le nom d'un pays, 
sa superficie et sa population, qui calcule ensuite la 
densité et qui affiche le résultat. 


ENTRÉE :nom du pays, superficie, population. 

SORTIE : les résultats seront affichés sous la forme suivante : 
Pays Densité (hab/km?) 
FRANCE 96.8921 


ÉNONCÉS ET ANALYSES 





EXERCICE 1.14 (MIN, MAX) 


PROBLÈME :trouver le plus petit élément et le plus grand élément 
d'une liste de nombres. 


ENTRÉE : une liste de nombres. 


SORTIE :le plus petit élément et le plus grand élément de la 
liste. 





ANALYSE 


Le plus petit élément est trouvé par l'instruction MIN ; le plus grand 
élément est trouvé par l'instruction MAX. On opère alors de la façon 
suivante : 


1) On met dans MI le plus petit élément du tableau 

2) Pour chacun des éléments du tableau, on met dans MI la plus 
petite des deux valeurs, calculée par l'instruction MIN et portant 
sur MI et cet élément du tableau. 


Pour trouver l'élément le plus grand du tableau, on opère de la même 
manière avec l'instruction MAX. 





EXERCICE 1.15} (UPPERS, LOWER$) 


PROBLÈME : affichage du nom et du prénom d'une personne en 
lettres minuscules, les initiales étant écrites en lettres 
majuscules. 





ENTRÉE :entrer au clavier, le nom et le prénom d'une personne, 
écrits en lettres majuscules ou en lettres minuscules. 
SORTIE :affichage du nom et du prénom. 
ANALYSE 
L'instruction LEFT$ permet d'extraire les initiales du nom et du 
prénom. 
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EXERCICE 1.16 J(ON ERROR, ERR, ERL) 





PROBLÈME : écrire un programme qui, en cas d'erreur, exécute un 


ENTRÉE 
SORTIE 


ANALYSE 


sous-programme d'affichage du numéro de l'erreur et 
du numéro de la ligne où l'erreur s’est produite. Le 
programme principal effectue la division de A par B. 


: deux nombres A et B. 


: le résultat de la division de A par B ou lors d'une erreur 


(par exemple si B = 0) le numéro de l'erreur et le nu- 
méro de la ligne où l'erreur s'est produite. 


L'instruction ON ERROR GOTO permet en cas d'erreur de pour- 
suivre à la ligne indiquée par GOTO. Le programme principal lit, par 
l'instruction INPUT, les deux nombres A et B. Si B est différent de 0, 
le programme affiche le résultat de la division de A par B. Si B est 
égal à O, la division est impossible et l'erreur provoque alors la pour- 
suite du programme à la ligne indiquée. 
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PROBLÈME 


ENTRÉE 
SORTIE 


ANALYSE 


EXERCICE 1.17 J(WINDOW) 


: construire 6 fenêtres d'affichage de couleurs alternées. 


rouge et bleu. Entrer le numéro de l'une des fenêtres 
et afficher ce numéro au centre de cette fenêtre. 


: un numéro compris entre 1 et 6. 


:affichage du numéro de la fenêtre au centre de cette 


fenêtre. 


L'instruction WINDOW définit des fenêtres d'affichage ou canaux, 
qui sont accessibles de façon directe par les instructions INPUT et 


PRINT. 


ÉNONCÉS ET ANALYSES 





EXERCICE 1.18 (SPEED INK) 


PROBLÈME : affichage clignotant d'un prénom en lettres de taille 






double. 
ENTRÉE : un prénom de personne. 
SORTIE :affichage clignotant du prénom en lettres de taille 


double, en utilisant le mode O. 





EXERCICE 1.19 | (mode transparent) 





PROBLÈME :afficher le nom et le prénom d'une personne en les 


soulignant. 
ENTRÉE :le nom et le prénom d'une personne. 
SORTIE :le nom et le prénom soulignés. 


ANALYSE 


On peut utiliser pour souligner le trait de soulignement ou encore 
le tiret de soustraction. Dans tous les cas il faut, au préalable, déter- 
miner la longueur du mot à souligner. Pour cela, utiliser la fonction 
LEN. Si l’on désire, en plus, que le trait se trouve très près du mot à 
souligner, il faut passer en mode transparent et utiliser l'instruction 
PRINT CHR$(22)+CHR$(1). 





EXERCICE 1.20 J(SOUND) 


PROBLÈME : jouer une note de la gamme 0, en tapant DO pour la 
note do, RE pour la note ré, MI pour la note mi, FA 
pour la note fa, SO pour la note sol, LA pour la note 
la, SI pour la note si. 
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EXERCICES EN BASIC POUR AMSTRAD 


ENTRÉE : l'une des réponses DO, RE, MI, FA, SO, LA, SI. 
SORTIE : la note correspondante de la gamme O. 
ANALYSE 


Créer une chaîne de caractères correspondant à toutes les ré- 
ponses possibles. Puis se servir de la position de la réponse dans 
cette chaîne pour déterminer la note à jouer (instruction INSTR). 





EXERCICE 1.21 J(ENT, ENV) 


PROBLÈME : jouer le morceau de musique suivant (Frère Jacques) : 





ANALYSE 
Le morceau peut être enregistré sous forme de DATA. 


22 


ÉNONCÉS ET ANALYSES 





EXERCICE 1.22 J{manipulation de tableaux) 


PROBLÈME : créer des phrases, composées aléatoirement à partir 
de noms, verbes et compléments. 





ENTRÉE :une liste de noms, verbes et compléments (en DATA). 
SORTIE : des phrases aléatoires. 
ANALYSE 









Lecture 
des phrases 


EXERCICE 1.23 (ASC, ZONE) 


PROBLÈME : affichage de tous les caractères ASCII de code compris 
entre 32 et 255. 





rt Afficher une phrase 
composée au hasard. 














EXERCICE 1.24} (ORIGIN, CLG) 


PROBLÈME : dessiner un damier de 100 cases à 2 couleurs alter- 
nées. 


SORTIE : affichage du damier. 
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EXERCICES EN BASIC POUR AMSTRAD 


ANALYSE 


L'instruction ORIGIN permet de définir des zones d'affichage gra- 
phique, qui peuvent être coloriées par l'instruction CLG. 





EXERCICE 1.25 }(SYMBOL) 





PROBLÈME :écrire un programme qui fait se déplacer une balle 
dans une zone rectangulaire. Les rebonds sur les bords 
du rectangle seront accompagnés d’un beep musical. 


ANALYSE 


Pour dessiner la balle, utiliser l'instruction SYMBOL. La balle peut 
se déplacer par pas de un, sur la gauche, sur la droite, vers le haut ou 
vers le bas. Quand la balle atteint l’un des bords verticaux, on per- 
mute les déplacements gauche et droit. Quand la balle atteint l'un des 
bords horizontaux, on permute les déplacements haut et bas. 
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CHAPITRE 1 


CALCULS, 
MANIPULATIONS 

DE TABLEAUX 
NUMERIQUES 
(Recherche, 
classement, insertion) 








ENTRÉE :les dix valeurs 
SORTIE : le nombre de valeurs positives ou nulles 
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EXERCICES EN BASIC POUR AMSTRAD 


ANALYSE 


Il est nécessaire d'utiliser un compteur (ici P), qui sera incrémenté 
(on lui ajoute 1) dans la boucle pour chaque valeur positive trouvée. 


L'utilisation d'un tableau, pour enregistrer les valeurs, permet un 
traitement plus facile. 


A EU : D Entrée des dix valeurs 
Es le tableau. 










La prochaine valeur 
est-elle positive ou nulle ? 


Afficher P 


ÉNONCÉS ET ANALYSES 





EXERCICE 2.2 


PROBLÈME : calcul d'un prix TTC à partir du prix hors taxe et du 
code de la TVA à lui appliquer. 





ENTRÉE : prix hors taxe et code du taux de TVA (A, B ou C pour 
5 , 18,6 % ou 33,33 % respectivement). 

SORTIE : le prix TTC arrondi à deux décimales. 

ANALYSE 


Le taux de TVA correspondant au code est affecté à une variable, 
puis le prix TTC est calculé à partir de cette variable. Si le code tapé 
ne correspond à rien, un autre code TVA est demandé. 


Entrée du 
prix hors-taxe 
Entrée du code 
TVA. dans C$ 











oui 
Mettre la 
TVA. à 5,5 
Calcul du 
prix T.T.C. 








ONE Affichage du prix T.T.C. 
arrondi à deux décimales. 
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EXERCICES EN BASIC POUR AMSTRAD 





EXERCICE 2.3 


PROBLÈME : même programme que le précédent (EXERCICE 2.2), 
mais pour un groupe de dix prix. 





ENTRÉE : dix prix hors taxes et le code du taux de TVA à leur 
appliquer. 
SORTIE :les dix prix TTC arrondis à deux décimales et alignés 


sur le point décimal. 


ANALYSE 


L'utilisation d'un tableau pour enregistrer les dix prix permet de 
faciliter les entrées, l'affichage et les calculs. 


Entrée du code 
T.V.A. dans C$ 












Entrée des dix prix 
ace dans un tableau. 













Mettre la 
T.V.A. à 18,6 


oui 
Mettre la 
T.V.A. à 33,33 


Calcul des dix prix T.T.C. arrondis 
à deux décimales. 






Mettre la 
T.V.A. à 5,5 








RUE 





Affichage des dix prix 
avec alignement sur 
le point décimal. 


CEE 
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ÉNONCÉS ET ANALYSES 





EXERCICE 2.4 





PROBLÈME : lecture dans un tableau d'une liste de mots enregis- 
trée dans le programme sous forme de DATA. Donnez 
différentes solutions pour résoudre le problème de la 
longueur de la liste. 


ENTRÉE : la liste de mots (à partir de lignes DATA). 
SORTIE : affichage du tableau. 





EXERCICE 2.5 ] 


PROBLEME : à partir d’une liste de noms et de prénoms enregistrée 
dans la machine, on cherche à savoir si une personne 
se trouve dans cette liste. 


ENTRÉE : une liste de personnes (noms et prénoms). Une per- 
sonne à chercher (nom et prénom). 


SORTIE : un message indiquant si la personne se trouve, ou ne 
se trouve pas dans la liste. 


ANALYSE 


L'utilisation de DATA permet une lecture facile et rapide des don- 
nées dans un tableau. 

Pour savoir si une personne se trouve dans la liste, il faut comparer 
successivement son nom et son prénom à ceux de toutes les per- 
sonnes de la liste. 
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EXERCICES EN BASIC POUR AMSTRAD 






Début 








Lecture des noms et des 


Lireles À _________ 
prénoms à partir de DATA. 


données 


RE CRE Entrée du nom et du 


Y a-t-il une personne du 
tableau correspondant à la 
personne à chercher ? 


Afficher “N'est Afficher “Est 
pas dans le dans le 
fichier” fichier” 





EXERCICE 2.6 


PROBLÈME :recherche, dans un agenda, d'un numéro de télé- 
phone ou d’un nom. 





ENTREE :le nom de la personne dont on souhaite connaître le 
numéro de téléphone, ou le numéro de celle dont on 
cherche le nom. 


SORTIE :la personne recherchée avec son numéro de télé- 
phone, si elle se trouve effectivement dans l'agenda 
(attention, plusieurs personnes peuvent porter le 
même nom l!). 
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ÉNONCÉS ET ANALYSES 


ANALYSE 


Les personnes sont enregistrées sous forme de DATA, avec leur 
numéro de téléphone. La présence ou l'absence dans la liste, de la 
personne demandée, est signalée par une variable 0 ou 1. Une telle 
variable s'appelle un drapeau. 








Entrée du nom 
aséese-==2— ou du numéro de 
téléphone. 


NE PS EE Une, ou des personnes 
correspondent-elles ? 


Afficher que la 
— - —| personne n'est 
pas dans la liste. 


Affichage 





EXERCICE 2.7 





PROBLÈME :trouver dans une liste de personnes la première par 
ordre alphabétique et indiquer son rang. 


ENTRÉE : une liste de personnes (noms et prénoms). 


SORTIE : le rang de la première personne, son nom et son pré- 
nom. 
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EXERCICES EN BASIC POUR AMSTRAD 


ANALYSE 


L'ordre alphabétique entre deux chaînes de caractères se déter- 
mine en utilisant les opérations de test “>” et “<”. Par exemple, si 
A$>B$ est vrai, A$ suit B$ dans l’ordre alphabétique. 


Dans le problème posé, il y a deux comparaisons à faire, l'une entre 
les noms, et l’autre, si les noms sont égaux, entre les prénoms. 


Mettre l'indice 
Mà1 








____ ____| Entrée des données 
dans le tableau. 


L'élément suivant du 
tableau, d'indice 1, est-il 
avant l'élément d'indice 

M par ordre alphabétique ? 
(son nom est avant, 

ou son nom est le même 
et son prénom est 

avant). 


RETRTE Est-ce le dernier élément 
du tableau ? 


Afficher la 
personne 
d'indice M 


ÉNONCÉS ET ANALYSES 





EXERCICE 2.8 





PROBLÈME : classement par ordre décroissant d'une liste de nom- 
bres entrés dans la machine dans un ordre quel- 
conque {utiliser deux tableaux, le premier contenant 
les nombres à classer, le second pour ranger les nom- 
bres classés). 


ENTRÉE : une liste de nombres (entrée sous forme de DATA). 
SORTIE : la liste classée par ordre décroissant. 
ANALYSE 


Deux manières de résoudre le problème sont proposées : 
1" méthode : 


Elle nécessite l’utilisation d’un nombre particulier ne pouvant ap- 
partenir à la liste. Ici nous supposerons que tous les nombres à clas- 
ser sont positifs ou nuls ; un nombre négatif, par exemple —-1, ne 
peut donc en faire partie. 


La machine recherche l'élément le plus grand du premier tableau 
qu'elle ajoute au second tableau ; cet élément est ensuite remplacé 
par —1 dans le premier tableau, le processus est recommencé autant 
de fois qu'il ÿ a de nombres à classer. 


A la fin, le premier tableau ne contient plus que des —-1,etle second 
tableau contient les nombres classés par ordre décroissant. 
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EXERCICES EN BASIC POUR AMSTRAD 






Entrée des nombres dans 
le premier tableau. 







_| Recherche de l'élément le 
plus grand du premier tableau. 


second tableau au début ou 
à la suite de ceux qu'il contient. 
Remplacer cet élément par —1 


Le second tableau À 
dans le premier tableau. 


contient-il le 
même nombre |- 
d'éléments que 

le premier ? 


É cet élément dans le 







Affichage 
du second 
tableau 


2° méthode : 


Cette méthode est applicable quels que soient les nombres à clas- 
ser. 


Après avoir trouvé l'élément le plus grand du premier tableau et 
l'avoir transféré dans le second, cet élément est supprimé du premier 
tableau en faisant “remonter” les éléments suivants d'une position, 
le tableau des nombres à classer contient donc un élément de moins. 

Le processus est recommencé jusqu'à ce qu'il n’y ait plus d’élé- 
ments dans le premier tableau. 


ÉNONCÉS ET ANALYSES 







Début 


Etre pe des nombres dans 


le premier tableau. 


Recherche de l'élément le 
— —1 plus grand du premier 
tableau. 


- -{ Ajouter cet élément dans 
le second tableau au 
début ou à la suite de 
ceux qu'il contient. 


Le premier tableau 
contient-il encore 
des éléments ? 





Supprimer cet élément 
du premier tableau en 
décalant les éléments 


suivants d'une position. 









Affichage 
du second 
tableau 


Exemple : 


élément le 
plus grand -— 





Tableau 1 














Tableau 2 





121 1 
17 2 
puis -3 |3 
décalage 0 4 
dans le 
premier —2 5 
tableau : à 
0 À 
Lu | 
4 ; 
1 In 
X ; 





Tableau 1 
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EXERCICES EN BASIC POUR AMSTRAD 


La première méthode a l'avantage d'être simple, mais elle nécessite 
l'existence d’une valeur né pouvant appartenir au tableau initial (ici 
1), 


La deuxième méthode peut s'appliquer à n'importe quel tableau mais 
est plus compliquée, et plus longue à exécuter, à cause des décalages 
que l'on doit effectuer. 





EXERCICE 2.9 






PROBLÈME :écrire un programme affichant les pays dans l'ordre 
croissant de leurs populations. Nous donnons ci-des- 
sous une liste de pays et leur population en millions 


d'habitants : 

ALLEMAGNE :61,498 BELGIQUE  : 9,889 
DANEMARK : 5,073 FRANCE : 52,915 
IRLANDE : 8,162 ITALIE : 56,323 


LUXEMBOURG  : 0,358 PAYS-BAS  :13,825 
ROYAUME-UNI  :55,928 


SORTIE ‘affichage des noms des pays par population crois- 
sante et de leur population en millions d'habitants. 





EXERCICE 2.10 





PROBLÈME : écrire un programme qui permet de classer une liste 
de pays suivant les trois critères : population, super- 
ficie, densité. 

ENTRÉE : choix du critère. 

SORTIE :le menu proposé sous la forme : 


0 - POPULATIONS CROISSANTES 
1 - SUPERFICIES CROISSANTES 
2 - DENSITES CROISSANTES 


l'affichage des résultats demandés. 
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DONNÉES 


ÉNONCÉS ET ANALYSES 


: on donne : 


PAYS 

Allemagne, Belgique, Danemark, Espagne, France, 
Grèce, Irlande, Italie, Luxembourg, Pays-Bas, Portu- 
gal, Royaume-Uni 


POPULATIONS (millions d'hab.) 
61,498/9,889/5,073/35,971/52,915/9,165/3,162 
56,323/0,358/13,825/9,449/55,928 


SUPERFICIES (milliers de km?) 
249/31/43/505/547/132/70/301/3/41/92/244 


DENSITÉS (hab./km?) 
247/319/118/71/97/69/45/187/138/339/103/228 








PROBLÈME 


ENTRÉE 
SORTIE 


EXERCICE 2.11 


: classer une liste de personnes par ordre alphabétique 


en n'utilisant qu'un tableau. 


: une liste de personnes (noms et prénoms). 


: la liste classée par ordre alphabétique. 
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EXERCICES EN BASIC POUR AMSTRAD 


ANALYSE 


Entrée 







Entrée des données 
dans le tableau. 


Recherche de la personne 

classée alphabétiquement 

la première parmi celles 
——————-———| placées entre la P.ième 

et la dernière du tableau. 


===sssses Permutation de cette personne 
avec la P.ième du tableau. 


Reste-t-il des éléments 
NN ee à classer ? 






Affichage 
du tableau 





Il est parfois nécessaire de n'utiliser qu'un tableau, par exemple 
lorsque la capacité mémoire de la machine est insuffisante pour en 


contenir plusieurs. 
Voici la méthode utilisée : 


Rechercher le premier élément du tableau par ordre alphabétique 
(BARON), puis permuter celui-ci avec le premier élément du tableau 


(MARTIN). 


Le premier élément du tableau est alors aussi le premier par ordre 


alphabétique. 


38 


ÉNONCÉS ET ANALYSES 


Recommencer avec les éléments suivants, chercher le premier par 
ordre alphabétique parmi eux, puis permuter celui-ci avec celui d'in- 
dice le plus petit. 

















Exemple : 
MARTIN |<—1 élément BARON 
GEORGE | GEORGE |—2 élément DURAND 
du tableau LEE 
DURAND DURAND | æux GEORGE |e_3 
<—?* élément 2, 
par ordre élément... 
BARON +17 élément MARTIN |  élphabétique MARTIN 
ar ordre 
PERRIN Elphabétique PERRIN PERRIN 
MARTEAU MARTEAU MARTEAU 
MALLAT MALLAT MALLAT 








EXERCICE 2.12 





PROBLÈME : ajouter une personne à un tableau, classé alphabéti- 
quement, en l'insérant à sa position dans l'ordre al- 
phabétique. 


ENTRÉE :une liste de personnes (noms et prénoms) classées 
par ordre alphabétique. Une personne à insérer. 


SORTIE :affichage du nouveau tableau contenant la personne 
à insérer à sa position dans l’ordre alphabétique. 
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EXERCICES EN BASIC POUR AMSTRAD 


ANALYSE 


Lecture des 









Lecture des noms et 
prénoms dans le 


données | tableau à partir de 
ATA. 
; Entrée de la personne 
DAGES à ajouter au tableau 


ou de “fin” pour arrêter. 


Recherche de sa position 
Fo par ordre alphabétique 
dans le tableau. 


La position est-elle à 
la fin du tableau ? 


| ORSQRE 










Ajouter la z 
personne à Décaler les personnes 


cette position d’une 
place. 

Mettre la personne à 
ajouter à cette position. 


tableau 





La lecture de la liste de personnes à partir de DATA permet d'être 
certain, lors de l'exécution du programme, de manipuler une liste 
classée dans l'ordre alphabétique (en enregistrant les DATA par ordre 
alphabétique). 


Pour insérer la personne dans l’ordre alphabétique, il faut trouver 
sa position dans le tableau. Si cette position est à la fin du tableau , il 
suffit d'ajouter la personne à la fin, sinon il faut décaler toutes les 
personnes suivantes d’un cran pour libérer cette position. 


ÉNONCÉS ET ANALYSES 














Exemple : 
Insérer GEORGE dans : D 
DUPONT : ; D'où le décalage : 
inchangé ? EN 
DURAND DUPONT 
MARTIN | * position DUPONT DURAND 
d'insertion 
DURAND GEORGE | * puis insertion de 
ROY MARTIN MARTIN | GEORGE : 
SENDEK MARTIN NOEL 
TILLOY ROY 
décalage 
SENDEK 
SENDEK TILLOY 
TILLOY La 











EXERCICE 2.13 


PROBLEME :écrire un programme qui calcule les racines réelles 
d'une équation du second degré. 


ENTRÉE : les trois coefficients du polynôme du second degré. 


SORTIE :les 2 racines réelles distinctes, ou la racine double, ou 
le message “DEUX RACINES COMPLEXES”. 









ANALYSE 


Entrer les trois nombres À, B et C correspondant à l'équation : 
AX2+BX+C=0 

il faut calculer le discriminant DELTA donné par : 
DELTA = B? -4AC 
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EXERCICES EN BASIC POUR AMSTRAD 


Si DELTA est négatif, l'équation n'a pas de racines réelles. 
Si DELTA est positif, l'équation a deux racines réelles données par : 


X1 = (— B + \DELTA)/(2A) 


X2 = (— B — \DELTA)/(2A) 
Si DELTA est nul, l'équation a une racine double donnée par : 
X = (— B)/(2A) 








EXERCICE 2.14 


PROBLÈME 


ENTRÉE 
SORTIE 


ANALYSE 


: transformer chaque élément d’un tableau de nombres 


en son pourcentage par rapport à la somme de tous 
les nombres. 


: un tableau de nombres. 


:le tableau composé en transformant chaque élément 


en son pourcentage par rapport à la somme de tous 
les nombres. Les pourcentages devront être affichés 
avec au plus deux nombres après la virgule et alignés 
sur celle-ci. 


Il faut, tout d’abord, calculer la somme S des valeurs du tableau. 
Le pourcentage d'une valeur T(l) du tableau est donné par la formule : 


100 x T{1)/S. 





EXERCICE 2.15 
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PROBLÈME 


: trouver le nombre supérieur le plus proche d'un nom- 


bre donné et ayant un seul chiffre significatif. Par 
exemple le nombre 0,0057637 est transformé en 0,006 
et le nombre 124,978764 en 200. Ce problème se pose, 
par exemple, lorsque l'on gradue les axes d'un gra- 
phique. 


ÉNONCÉS ET ANALYSES 


ENTRÉE : un nombre. 
SORTIE : le nombre tronqué. 


ANALYSE 


La partie entière de la fonction LOG 10 d’un nombre donne le nom- 
bre de chiffres avant la virgule si le nombre est supérieur à 1 et le 
nombre de zéros après la virgule, si le nombre est inférieur à 1. Ainsi : 


INT(LOG10(124,978764))+1 est égal à 3 
INT(LOG10(0,0057637))+1 est égal à —2 





EXERCICE 2.16 





PROBLÈME : calculer la surface et le volume d'une sphère, d'un cube 
ou d’un cylindre. 


ENTRÉE : taper SP pour la sphère, CY pour le cylindre et CU pour 
le cube. Entrer ensuite les paramètres nécessaires pour 
le calcul de la surface et du volume. 

SORTIE : la surface et le volume. 

ANALYSE 


En utilisant l'instruction DEF FN, on peut calculer une expression 
numérique comme le volume d'une sphère, en passant uniquement 
la valeur du rayon de la même façon que l'on utilise la fonction SIN 
ou COS... 
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CHAPITRE NI 


TRAITEMENTS DE 
CHAINES DE 
CARACTERES 
(Recherche, insertion, 
suppression de 
caractères) 
TRAITEMENTS 

DE FICHIERS 


EXERCICES EN BASIC POUR AMSTRAD 





EXERCICE 3.1 






PROBLÈME : suppression de tous les caractères “espace” pouvant 
exister dans une chaîne de caractères. 





ENTRÉE : une ligne de texte. 
SORTIE : la ligne sans aucun espace. 
EXERCICE 3.2 





PROBLÈME : ajouter un espace entre chaque lettre d’une chaîne de 


caractères. 
ENTREE : une chaîne de caractères. 
SORTIE :la même chaîne de caractères avec un espace ajouté 


entre chaque caractère. 





EXERCICE 3.3 





PROBLÈME :supprimer successivement la première lettre d'une 
chaîne de caractères jusqu'à son épuisement. 


ENTRÉE : une phrase ou un mot. 


SORTIE :affichages successifs du mot tronqué. 


Exemple : BONJOUR donne BONJOUR 
ONJOUR 
NJOUR 
JOUR 
OUR 
UR 
R 


46 


ÉNONCÉS ET ANALYSES 





EXERCICE 3.4 





PROBLÈME : suppressions successives du premier et du dernier ca- 
ractère d'un mot. 


ENTRÉE : un mot. 
SORTIE :affichages successifs du mot tronqué au centre de 
l'écran. 


Exemple : BONJOUR donne BONJOUR 
ONJOU 
NJO 
J 


ANALYSE 


Pour obtenir la présentation donnée en exemple, plusieurs mé- 
thodes sont possibles : on peut remplacer les caractères supprimés 
en début de ligne par autant d'espaces, ou bien utiliser à l'affichage 
la fonction TAB (c'est cette dernière possibilité qui sera utilisée dans 
la solution proposée). 





EXERCICE 3.5 





PROBLÈME :supprimer successivement le dernier mot d'une 
phrase. Effectuer cette opération jusqu'à épuisement. 


ENTRÉE : une phrase. 


SORTIE :affichages successifs de la phrase tronquée d'un mot 
à chaque fois. 


Exemple : LE CHAT EST SUR LE TOIT donne 


LE CHAT EST SUR LE TOIT 
CHAT EST SUR LE TOIT 
EST SUR LE TOIT 

SUR LE TOIT 

LE TOIT 

TOIT 
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EXERCICES EN BASIC POUR AMSTRAD 


ANALYSE 


Dans une phrase, les mots sont séparés par un “blanc” contenant 
un ou plusieurs “espaces”. Le programme va donc rechercher le pre- 
mier blanc à partir de la gauche de la phrase, supprimer tous les 
caractères jusqu'à ce blanc, afficher la phrase, et recommencer jus- 
qu'à ce qu'il ne reste plus de mots dans la phrase. 







Entrée de la 
phrase 









Affichage 
de la phrase 


Existe-t-il : 
Supprimer tous les 









un caractère : k | 
“espace” caractères de la 
dans la phrase jusqu'au 
? premier espace à 
PARA partir de la gauche. 





PROBLÈME : faire défiler une phrase sur l'écran de gauche à droite 
puis, lorsqu'elle atteint le bord, de droite à gauche, et 
ainsi de suite. 


ENTRÉE : une phrase de moins de 20 caractères. 
SORTIE : faire défiler la phrase sur l'écran. 
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ÉNONCÉS ET ANALYSES 


ANALYSE 


Entrée 
du texte 


Déplacement 
du texte de 
gauche à droite 









Décaler successivement 
l'affichage d’une colonne 

= sur la droite jusqu'à 
l'atteinte du bord droit 
de l'écran. 


Décaler successivement 
l'affichage d'une colonne 

——--——- sur la gauche jusqu'à 
l'atteinte du bord gauche 
de l'écran. 


Déplacement 
du texte de 
droite à gauche 





EXERCICE 3.7 





PROBLÈME : faire défiler un texte, sans arrêt, de droite à gauche sur 
une même ligne d'écran. 


ENTRÉE : un texte de moins de 39 caractères. 
SORTIE :le texte défile sur l'écran. 
ANALYSE 


Deux méthodes sont proposées pour résoudre le problème. Dans 
les deux cas, on utilise la possibilité sur AMSTRAD de faire clignoter 
les couleurs. 


49 


50 


EXERCICES EN BASIC POUR AMSTRAD 


1 méthode : 


Créer une chaîne de 40 caractères (largeur totale de l'écran) à partir 
du texte entré en le complétant par suffisamment de points. Pour 
obtenir le défilement, retirer le premier caractère de la chaîne et le 
reporter à la fin, puis recommencer l'opération. 


Entrée de 
la ligne 












Constituer une chaîne de 40 


Traitement F------———-—-— caractères en ajoutant 


des points à la ligne. 


Afficher la chaîne 
de caractères 


PSE Retirer le premier caractère de 
la chaîne et l'ajouter à la fin. 


2° méthode : 


Afficher le texte depuis la colonne | jusqu'au bord droit de l'écran, 
puis afficher la partie restante de ce texte depuis le bord gauche de 
l'écran sur la même ligne. 


ÉNONCÉS ET ANALYSES 







Entrée 
de la ligne 


Afficher la ligne de la colonne | 
___ | jusqu'au bord droit de l'écran, et 

afficher à partir du bord gauche de 

l'écran le morceau de ligne restant. 


Sortie 
Décrémenter | 


D 


non 









EXERCICE 3.8 





PROBLÈME 


: transformer une phrase de la forme négative à la forme 
positive en supprimant de la phrase les mots NE, N° 


et PAS. 
ENTRÉE :une phrase à la forme négative. 
SORTIE : la phrase à la forme positive. 
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EXERCICES EN BASIC POUR AMSTRAD 


ANALYSE 












Entrée 
de la phrase 


Un des mots : _NE._.” 
“__ N'"ou PAS." 
se trouve-t-il 

dans la phrase ? 


L'enlever 





Afficher 
la phrase 


Remarque : les comparaisons s'effectuent avec les mots NE, N' et 
PAS entourés d'espaces pour les distinguer de parties de mots 
(exemple : PASserelle). 

Attention au cas où la phrase commencerait avec un de ces mots, ou 
se terminerait avec le mot PAS. 
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EXERCICE 3.9 


PROBLÈME :écrire un programme recherchant, dans un groupe de 
mots, tous ceux contenant une suite donnée de lettres 


(clé). 
ENTRÉE : la clé à rechercher. 
SORTIE :les différents mots trouvés, affichés en alignant sur la 


même colonne la clé à rechercher. Le nombre de fois 
où la clé a été trouvée. 


ÉNONCÉS ET ANALYSES 


Exemple : si la liste de mots est VOITURE, RIVIERE ET AVAIT, et la clé 
à rechercher IT, on obtient : 


VOITURE 
AVAIT 


La clé a été trouvée 2 fois. 


Remarque : la clé pourra être écrite avec une couleur différente ou 
apparaître en lettres majuscules, le reste du mot étant en lettres mi- 


nuscules. 


ANALYSE 


Le texte à analyser est introduit dans le programme sous forme 
d'une liste d'une ou plusieurs instructions DATA. La clé est ensuite 
comparée successivement en se plaçant sur le premier caractère d'un 
mot et en se déplaçant successivement sur la droite. 








EXERCICE 3.10 








PROBLÈME :insertion de caractères dans une chaîne de caractères 
à une position donnée. 

ENTRÉE : une chaîne de caractères, puis la chaîne de caractères 
à insérer et la position d'insertion. 

SORTIE : la nouvelle chaîne de caractères. 

EXERCICE 3.11 

PROBLÈME : remplacement d'un mot par un autre dans une ligne 
de texte ne dépassant pas 128 caractères. Le mot doit 
être remplacé autant de fois qu'il se trouve dans le 
texte (le texte modifié ne doit cependant pas dépasser 
128 caractères). 

ENTRÉE : un texte d'au plus 128 caractères. Un mot à remplacer 


et le mot qu'on lui substituera. La réponse pour confir- 
mer la substitution. 
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SORTIE :le texte obtenu en affichant le mot à remplacer en 
mode clignotant et si la substitution est confirmée, le 
nouveau texte obtenu. 


ANALYSE 


La recherche dans le texte du mot à remplacer est faite en le compa- 
rant à des morceaux du texte de même longueur, en commençant au 
début de la ligne, puis en se déplaçant d'un caractère jusqu'à la fin 
de la ligne. 


A chaque fois que le mot à remplacer est trouvé, la machine de- 
mande à l'utilisateur s'il veut ou non remplacer ce mot dans le texte. 






mot à mettre à la place. 





DE es de la ligne, du mot à remplacer, et du 







Une correspondance du mot a:t- 
elle été trouvée au moins une fois ? 


Y a-t-il une (autre)| | _… 
correspondance ?] 





Afficher : 
“Ce mot 
4 ‘est pas 
Le changement est-il : Jans 4 
possible ? (la nouvelle D - Shots orient ligne”. 
ligne aurait-elle impossible” 


moins de 128 caractères ?) 


J 


L'utilisateur veut) 
effectuer le changement 
pour ce mot-là ? 
{il tape oui ou non)|+ - -” 
oui 
Effectuer le 
changement 








ÉNONCÉS ET ANALYSES 





EXERCICE 3.12 





PROBLÈME : justification d'une ligne de texte sur l'écran. 


ENTRÉE : une ligne de texte de longueur inférieure ou égale à 
40 caractères. 


SORTIE : la ligne justifiée sur l'écran (des espaces ont été ajoutés 
entre chaque mot, de manière à ce que le premier et 
le dernier mot de la ligne soient sur les bords de 
l'écran). 


ANALYSE 


Il faut ajouter des espaces entre chaque mot de façon à ce que le 
premier caractère se trouve sur la colonne 1 et le dernier caractère 
sur la colonne 40. Le nombre d'espaces à ajouter est égal à 40 moins 
le nombre de caractères du texte à justifier. Toutefois, pour obtenir 
une bonne présentation à l'écran, il est nécessaire de répartir équi- 
tablement entre chaque mot, ce nombre d'espaces nécessaires. 


Entrée de 
la ligne 










Mettre le nombre d'espaces à ajouter 
à la ligne dans B. 
see Mettre le nombre d'espaces que 
contient la ligne dans N. 


Calcul 


Traitement 


——-—- Ajouter B/N espacel(s) à chaque 
espace de la ligne. 








Affichage 
de la ligne 
justifiée 
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EXERCICE 3.13 
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PROBLÈME : à partir d'un mot ou d'une phrase, créer le mot ou la 
phrase, construit en lisant les caractères de droite à 
gauche, puis en les lisant de façon aléatoire. 


ENTRÉE : une phrase où un mot. 


SORTIE :la phrase avec les caractères placés dans l'ordre in- 
verse et une phrase constituée exactement des mêmes 
caractères, mais dans un ordre aléatoire. 


Exemple : TABLEAU donne UAELBAT en ordre inverse et, par 
exemple, BLTUAEA en ordre aléatoire. 


ANALYSE 


La méthode utilisée pour inverser l’ordre des caractères est la sui- 
vante : les caractères de la chaîne à inverser sont ajoutés un à un, en 
partant de la fin, à une autre chaîne. 


Exemple : TABLEAU donne U 
puis UA 
puis UAE 
puis UAEL 
puis UAELB 
puis UAELBA 
et Late UAELBAT. 


Pour créer la chaîne aléatoire, un caractère de la chaîne est choisi au 
hasard, ajouté à une autre chaîne, puis supprimé de la chaîne initiale. 
Le processus est ensuite recommencé jusqu'à ce que la chaîneinitiale 
soit vide. 


Exemple : avec TABLEAU on aurait par exemple : 


TABLEAU et B 

TAEAU et BL 

AEAU et BLT 

AEA et BLTU 

AE et BLTUA 

A et BLTUAE 
et enfin BLTUAEA 


ÉNONCÉS ET ANALYSES 


Entrée de 
la ligne 


Création de 
la ligne 
inversée 


Création de 
la ligne 
aléatoire 


Affichage de la ligne normale, 
inversée et aléatoire. 











EXERCICE 3.14 


PROBLÈME : donner le pourcentage d'apparition de chaque lettre 
de l'alphabet dans un texte. 





ENTRÉE : une ou plusieurs lignes de texte. 


SORTIE : chaque lettre de l'alphabet suivie de son pourcentage 
d'apparition dans les lignes de texte (arrondi à deux 
décimales et aligné sur la virgule ou point décimal 
anglais). 


ANALYSE 


Créer un tableau contenant 26 éléments, puis à chaque fois que la 
lème lettre de l'alphabet apparaît dans le texte, incrémenter le lème 
élément. Pour déterminer le rang | d’une lettre dans l'alphabet, on 
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peut utiliser la fonction ASC et soustraire 64. On note en effet que les 
lettres majuscules en code ASCII se suivent par ordre alphabétique, 
entre le code 64 et 90. On peut encore créer une chaîne contenant 
toutes les lettres de l'alphabet dans l'ordre et utiliser l'instruction 
INSTR pour déterminer la position d'une lettre dans cette chaîne. C'est 
la première méthode qui a été retenue dans la solution proposée. 
Calculer enfin le pourcentage d'apparition de chacune des lettres dans 
le texte. 


Entrée des 
lignes de 
texte 













Pour chaque lettre de l'alphabet compter 
le nombre de fois où cette lettre apparaît 
dans le texte. 


Traitement 





Compter le nombre total de lettres 
comptabilisées précédemment et calculer 
le pourcentage d'apparition dans le texte 
de chaque lettre. 


Calculs 





Affichage des 
résultats 








EXERCICE 3.15 
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PROBLÈME : à partir d’une date écrite en chiffres (ex : 15-7-1790), 
remplacer le numéro du mois par son nom (ex : 15 


JUILLET 1790). 


ÉNONCÉS ET ANALYSES 


ENTRÉE :trois nombres correspondant à un jour, un mois etune 
année. 

SORTIE : affichage de la chaîne de caractères contenant la date. 

ANALYSE 


Les noms des 12 mois de l’année sont passés par une liste créée 
par une ou plusieurs instructions DATA. Ils sont lus successivement 
et le numéro du mois sert à arrêter cette lecture. 





EXERCICE 3.16 





PROBLÈME : programme inverse du précédent. 


ENTRÉE : une date sous la forme d’une chaîne de caractères. 
Exemple : “13 JUILLET 1788" 
SORTIE : les trois nombres correspondant au jour, au mois et à 


l'année de la date. 
Exemple : 13/7/1788 


ANALYSE 


La chaîne de caractères représentant la date est découpée en fonc- 
tion des espaces qu'elle contient. Le numéro du mois est obtenu à 
partir de la place qu'il occupe dans la liste de tous les mois enregis- 
trée dans une instruction DATA (le mois de juillet ÿ occupera ainsi la 
7ème place). 





EXERCICE 3.17 


PROBLÈME : afficher un nombre entré au clavier avec des chiffres 
géants dessinés au moyen d'étoiles sur une matrice 
de cinq colonnes et de six lignes. 


ENTRÉE : un nombre entier positif compris entre 0 et 99 999. 
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SORTIE :affichage de ce nombre en chiffres géants. 
ANALYSE 


Entrée du 
nombre à 
afficher 








Affichage du nombre 
CRE RES avec de grands chiffres. 





Les lignes d'étoiles formant chaque chiffre seront enregistrées sous 
forme de DATA. 


Exemple : Le chiffre 4, par exemple, sera en DATA sous la forme : 


“ nu nu nu nu nu " 
DATA" +", 4" "nus "une" x 





EXERCICE 3.18 






PROBLÈME : affichage du contenu de la mémoire (en informatique 
on utilise le mot anglais dump) situé entre 2 adresses 


données. 
ENTRÉE : deux nombres entiers compris entre 0 et 65535. 
SORTIE :affichage du contenu de la mémoire, sous forme de 


lignes d'écran contenant 8 octets écrits en hexadéci- 
mal. Lorsque cet octet représente le code ASCII d'un 
caractère affichable, affichage sur la même ligne de ce 
caractère, sinon affichage d'un point (“."). 
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ÉNONCÉS ET ANALYSES 


Adresse de debut 


"Adresse 
.de.fin. 
Due om Aa 


.# À... # 


..…"Adres 





ANALYSE 


Les fonctions PEEK et HEXAS$ permettent d'extraire le contenu sous 
forme hexadécimale d'une case mémoire. Tester ensuite si la valeur 
extraite est comprise entre 33 et 126 (caractères affichables). 





EXERCICE 3.19 


PROBLÈME : codage (cryptage) d'un texte. 
ENTRÉE :un texte. 
SORTIE :le même texte codé. 
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ANALYSE 


L'alphabet de codage est donné sous forme d'une suite de 26 lettres, 
dans l’ordre de leur correspondance avec l'ordre alphabétique. Par 
exemple, si l'alphabet de codage est : 


“WQAAXSZCDEVFRBGTNHYJUKILOMP" 


alors la lettre À est codée W, la lettre B est codée Q, etc. 





EXERCICE 3.20 
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PROBLÈME : établir une fiche de saisie de données. Les données 
traitées sont le nom, le prénom, l'adresse et le numéro 
de téléphone. 


ENTREE :les réponses aux différentes rubriques de la fiche de 
saisie. Les touches de déplacement vertical, de façon 
à se déplacer dans la fiche aux différentes rubriques. 
La touche ENTER, pour valider les données entrées. 
La touche DEL pour effacer le caractère qui précède le 
curseur. 


SORTIE : la fiche de saisie sous forme de 4 rubriques. Chaque 
rubrique comprend l'élément à saisir (exemple : le 
prénom), suivi de points (“”.”)} en nombre suffisant pour 
compléter la ligne d'écran. Au fur et à mesure que l'on 
complète une rubrique, les caractères frappés rempla- 


cent les points sur la ligne. 


ANALYSE 


Les données sont saisies à la rubrique où le curseur est positionné 
à l'écran. Pour changer de rubrique, utiliser les 2 touches de dépla- 
cement vertical. Pour valider les éléments saisis, utiliser la touche 
ENTER. 


CHAPITRE IV 


DESSINS, 
HISTOGRAMMES, 
GRAPHIQUES, 
TRACÉS 

DE FONCTIONS, 
PROGRAMMES 
MUSICAUX 








: afficher l'histogramme en bâtons horizontaux à partir 
d’un tableau de quinze valeurs. 
ENTRÉE : quinze valeurs comprises entre 0 et 100 
SORTIE : affichage de l'histogramme correspondant. 
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Histogramme 








Ua Qo CU 1e CD LOC: I 9) UT 1E LD DO Ps 


D at ftp 





ANALYSE 


Il faut faire correspondre à la valeur 100 une bande horizontale de 
longueur 30, à la valeur 0 une bande de longueur nulle et aux autres 
valeurs intermédiaires une bande de longueur proportionnelle. Pour 
rendre le graphique plus lisible, on utilise deux couleurs en alter- 
nance pour dessiner les bandes ; chaque bande est précédée de son 
rang dans le tableau. 


Exemple : 





ÉNONCÉS ET ANALYSES 





EXERCICE 4.2 









PROBLÈME : afficher l'histogramme en bâtons horizontaux à partir 
d'un tableau de dimension maximale égale à 20. 


ENTRÉE : Vingt valeurs positives (inférieures à 1000). 
SORTIE : affichage de l'histogramme correspondant. 
ANALYSE 


A la plus grande valeur entrée, il faut faire correspondre une bande 
horizontale de longueur 30, à la valeur 0 une bande de longueur nulle 
et aux autres valeurs intermédiaires une bande de longueur propor- 
tionnelle. |! faut donc déterminer la plus grande valeur, puis la varia- 
tion (pas) correspondant à chaque pavé. 





EXERCICE 4.3 





PROBLEME : histogramme comparatif : à partir d’un tableau de 20 
valeurs représentant les ventes de 2 articles sur 10 
années, faire un graphique en bâtons. Les bâtons sont 
groupés par deux, pour représenter la vente des deux 
articles sur une même année. 


ENTRÉE : deux fois dix Valeurs, rentrées deux par deux et sé- 
parées par une virgule. 

SORTIE ‘histogramme des valeurs. Utiliser une couleur par ar- 
ticle. 

Exemple : 

1974 MAGENTA article À pour la 1° année 

1974 JAUNE article B pour la 1° année 

1975 MAGENTA article A pour la 2° année 

1975 JAUNE article B pour la 2° année 
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ANALYSE 


La plus grande des 20 valeurs permet de déterminer le pas de quan- 
tification, c'est-à-dire la quantité qui correspond à un pavé. Pour en- 
registrer les 20 valeurs, il est possible d'utiliser un tableau de 
dimension 2, le premier indice (0 et 1) représentant l'article, le 
deuxième indice (0 à 9) représentant l’année. Chaque bâton de l'his- 
togramme est précédé de l'année correspondante et la valeur la plus 
grande est affichée à l'écran. 
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PROBLEME : graphique en secteurs : à partir d'une série de valeurs, 
afficher un disque composé de secteurs, chacun ayant 
une ouverture (angle) proportionnelle au pourcentage 
de la valeur à représenter. Pour rendre la lecture plus 
facile, utiliser pour l'affichage deux couleurs de façon 


alternée. 
ENTRÉE : une suite de valeurs. 
SORTIE : graphique en secteurs ; valeur associée au secteur de 


taille maximale. 


ANALYSE 


Il faut tout d'abord calculer les pourcentages d'apparition des va- 
leurs. Ces pourcentages permettent ensuite de déterminer l'angle 
d'ouverture de chaque secteur. Cet angle est égal à ce pourcentage 
multiplié par l'angle total d'un cercle, soit 360 degrés ou 2 x Plradian. 
Pour dessiner le secteur correspondant, on peut par exemple, en par- 
tant de l’origine, tracer un nombre de segments de longueur donnée 
(rayon du cercle), régulièrement espacés. Ce nombre de segments 
est calculé pour être proportionnel à la valeur à représenter. Pour 
chaque valeur affichée, on changera la couleur du secteur. 


ÉNONCÉS ET ANALYSES 





EXERCICE 4.5 






PROBLEME : graphique en bandes : à partir d'une série de valeurs, 
afficher une bande horizontale, constituée de seg- 
ments, chacun ayant une longueur proportionnelle au 
pourcentage de la valeur à représenter. Pour rendre la 
lecture plus facile, utiliser pour l'affichage deux cou- 
leurs de façon alternée. 


ENTRÉE : une suite de valeurs passées par une liste de DATA. 


SORTIE : graphique en bandes ; valeur correspondant au seg- 
ment de taille maximale. 


ANALYSE 


Il faut tout d'abord calculer les pourcentages d'apparition des va- 
leurs. Ces pourcentages permettent ensuite de déterminer la lon- 
gueur de chaque segment. Cette longueur est égale à ce pourcentage 
multiplié par la longueur de la bande complète (400 points d'affi- 
chage graphique). Pour chaque valeur affichée, on changera la cou- 
leur du segment. 





EXERCICE 4.6 


PROBLÈME : graphique en colonnes : à partir d'une série de va- 
leurs, afficher une colonne verticale de segments, cha- 
cun ayant une longueur proportionnelle au 
pourcentage de la valeur à représenter. Pour rendre la 
lecture plus facile, utiliser pour l'affichage deux cou- 
leurs de façon alternée. 





ENTRÉE : une suite de valeurs passées par une liste de DATA. 
SORTIE : graphique en colonnes ; valeur du segment de taille 
maximale. 
————— 
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Graphique en colonnes 


k 


Valeur(s) 
8 
3 


.89 
3 


bebe DU EU HP DS La es D 
POUND 














ANALYSE 


Il faut tout d’abord calculer les pourcentages d'apparition des va- 
leurs. Ces pourcentages permettent ensuite de déterminer la lon- 
gueur de chaque segment. Cette longueur est égale à ce pourcentage 
multiplié par la hauteur de la colonne (300 points graphiques). Pour 
chaque valeur affichée, on changera la couleur du segment. 





EXERCICE 4.7 
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PROBLÈME :étudier l'ensemble des valeurs obtenues lors de 600 
lancers de dés. Le nombre de dés est compris entre 1 
et 6. Les résultats sont donnés sous forme d'un his- 
togramme, dessiné en mode haute résolution (mode 
2). 


ENTRÉE : le nombre de dés à jeter à chaque lancer. Une touche 
quelconque est utilisée pour arrêter au cours des 600 
lancers et provoque l'affichage de l'histogramme. 


ÉNONCÉS ET ANALYSES 


SORTIE : affichage des différents lancers. 
Affichage de l'histogramme en graphique haute ré- 
solution. Chaque colonne a une hauteur proportion- 
nelle au pourcentage d'apparition de la somme 
correspondante. On rappelle que, pour 3 dés par 
exemple, les sommes que l'on peut obtenir sont 
comprises entre 3 et 18. 


ANALYSE 


Pour chaque lancer, la somme des faces sorties est affichée. A la 
fin de tous les lancers, le pourcentage d'apparition de chaque somme 
possible est calculé en divisant le nombre de fois où cette somme est 
apparue par le nombre total de lancers. 





EXERCICE 4.8 


PROBLÈME : dessiner sur l'écran trois stylos de couleurs préalable- 
ment choisies ; on utilisera pour dessiner la forme d'un 
stylo, les possibilités de l'instruction SYMBOL. 


ENTRÉE : codes des 3 couleurs choisies. 


SORTIE :affichage de la question demandant le choix des 3 
couleurs. Affichage de trois stylos sur l'écran, chacun 
ayant une des couleurs choisies. 












ANALYSE 


En utilisant l'instruction SYMBOL, on peut à l’aide de 5 caractères 
graphiques, dessiner la forme du stylo. En mode 1, on ne peut avoir 
que 4 couleurs simultanément à l'écran et donc on ne peut représen- 
ter que 3 stylos de couleurs, l’une des couleurs étant réservée pour 
le fond (PAPER). 





EXERCICE 4.9 









PROBLÈME : secteur tournant : dessiner un secteur circulaire d'ou- 
verture donnée (1/20 de la surface totale) qui tourne 
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sur un disque. Le secteur et le disque sont dessinés au 
moyen de rayons issus du centre et de longueur don- 
née. Plus l’écartement entre 2 rayons voisins est faible, 
meilleure est la définition. 


ENTRÉE : le niveau de définition. 
SORTIE :le secteur tournant. 
ANALYSE 


Dessiner le secteur en traçant successivement des rayons partant 

de l'origine, de longueur donnée. Si le nombre de rayons est faible, 
on obtient des branches séparées. Si le nombre est suffisamment 
grand, on obtient une surface pleine. 
Pour donner l'impression du mouvement et voir le secteur tourner, il 
suffit de dessiner un nouveau rayon à la suite du dernier et d'effacer 
le premier. Si le nombre de rayons est petit (faible définition), la vi- 
tesse apparente est grande. Si le nombre de rayons est grand (grande 
définition), la vitesse apparente est faible. 





EXERCICE 4.10 ] 


PROBLÈME :entrer l'âge (inférieur à 20 ans) d'une personne. Affi- 
cher le nombre de bougies allumées nécessaires. 


ENTRÉE : l'âge de la personne. 
SORTIE : dessins des bougies. 
ANALYSE 


Le programme teste si le nombre représentant l'âge est inférieur à 
20. En utilisant l'instruction INK, le programme dessine des bougies 
clignotantes, disposées en rangées de 10. 





EXERCICE 4.11 
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PROBLÈME : réaliser un quadrillage de l'écran graphique en mode 
: haute résolution (mode 2). 


ÉNONCÉS ET ANALYSES 


ENTRÉE : largeur de la maille du quadrillage (nombre de points 
entre chaque ligne). 

SORTIE : quadrillage de l'écran. 

ANALYSE 


Pour dessiner un quadrillage régulier, on trace des lignes verticales 
et horizontales séparées par la largeur de la maille. 





EXERCICE 4.12 






PROBLÈME :tracer en haute résolution le graphe de la fonction SI- 
NUS. 


SORTIE : graphe de la fonction SINUS pour des valeurs de la 
variable comprise entre 0 et 3 PI (radian). Graduer l'axe 
des abscisses de 0 à 9 par pas de 1 ; graduer l'axe des 
ordonnées de —1 à 1 par pas de un. 





GRABRE D'UHE SIHUSQIDE 
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ANALYSE 


La graduation des axes peut être obtenue en déplaçant le curseur 
graphique par l'instruction MOVE et en lui attachant le curseur de 
caractères par l'instruction TAG. Utiliser l'instruction ORIGIN pour 
définir la zone d'écran où se fait l'affichage du graphe. 





EXERCICE 4.13 


PROBLEME : crible d'ERATHOSTENE. Afficher suivant un carré de 
côtés N tous les nombres compris entre 1 et N*N. Bar- 
rer ensuite par une ou deux croix tous ceux qui ne sont 
pas premiers. 





ENTRÉE : un nombre compris entre 1 et 9. 


SORTIE :affichage d’un tableau carré dans lequel est inscrite 
une suite de nombres. Barrer par une ou deux croix, 
ceux qui ne sont pas premiers. 


ANALYSE 


Un nombre premier est un nombre entier positif qui n’admet comme 
diviseur que 1 et lui-même. Si un nombre N est divisible par D, alors 
(N MOD D) est égal à 0 puisque (N MOD D) donne le reste de la 
division de N par D. Pour savoir si N et premier, il suffit de vérifier 
qu'il n’a pas de diviseurs compris entre 1 et sa racine carrée. 





EXERCICE 4.14 





PROBLEME : composition musicale : faire un programme qui de- 
mande une note à jouer sur un canal ainsi que les 
canaux en rendez-vous avec ce dernier. Le program- 
me donne aussi l'état des files en attente sur les dif- 
férents canaux. 
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ENTRÉE 
SORTIE 


ANALYSE 


ÉNONCÉS ET ANALYSES 


: réponses aux différentes questions posées. 
:affichage du mot SQ{(1), SQ(2), SQ(4). Affichage des 


questions nécessaires pour compléter l'instruction 
SOUND. 


Pour savoir s’il est possible d'introduire de nouvelles notes dans la 
file d'attente, lire le mot SQ de ce canal ; calculer son reste modulo 8 
(MOD 8). On obtient ainsi une valeur comprise entre 0 et 7 (inclus). 
En fait les seules valeurs possibles sont comprises entre 0 et 4 (inclus) 
et correspondent aux nombres de places encore libres dans la file 
d'attente de ce canal. 





EXERCICE 4.15 


PROBLÈME :chronomètre. Faire un programme qui réalise les 





ENTRÉE 


SORTIE 


ANALYSE 


fonctions suviantes : 


1) chronométrage des secondes 

2) remise à 0 

3) arrêt du chronométrage 

4) redémarrage avec ou sans prise en compte du 
temps écoulé. 


: les touches suivantes ont pour fonction : 


1) S pour arrêter le chronomètre 

2) C pour démarrer où redémarrer sans prise en 
compte du temps écoulé 

3) L pour redémarrer avec prise en compte du temps 
écoulé 

4) Z pour la remise à 0 du chronomètre. 


: affichage dans la partie haute de l'écran des fonctions 


réalisées par les touches S, C, L et Z. Affichage du 
chronomètre. 


Le synchronisme des secondes est obtenu par l'instruction EVERY 
qui est utilisée pour exécuter un sous-programme de façon régulière. 
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EXERCICES EN BASIC POUR AMSTRAD 


Le temps entre deux exécutions est un multiple de 0.02 seconde. Si 
ce multiple est égal à 50, le programme principal est ainsi interrompu : 
toutes les secondes et l'exécution du sous-programme a pour fonc- 
tion l’incrémentation de la valeur affichée. Le programme principal, 
quant à lui, scrute le clavier : 


1) Si la touche S est appuyée, un drapeau indique au sous-pro- 
gramme que l'affichage ne doit pas être modifié. 

2) Si la touche C est appuyée et que le drapeau précédent est levé, le 
chronométrage reprend avec la valeur qui était celle au moment 
où la touche S a été appuyée. 

3) Si la touche L est appuyée et que le drapeau précédent est levé, le 
chronométrage reprend avec la valeur qui est celle au moment où 
cette touche a été appuyée. 

4) Si la touche Z est appuyée, le chronomètre est remis à zéro. 





EXERCICE 4.16 
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PROBLÈME : détermination des paramètres de l'instruction SYM- 


BOL. 

ENTRÉE :les touches de déplacement du curseur, la touche 
COPY et la touche ENTER. 

SORTIE :affichage d'une grille 8 sur 8. Les touches suivantes 


ont pour fonction : 


1) L'appui sur les touches de déplacement déplace le 
curseur dans les limites de la grille. 

2) L'appui sur la touche COPY éclaire le pavé s'il est 
éteint, et l'éteint s'il est éclairé. 

3) L'appui sur la touche ENTER affiche le caractère 
ainsi construit, ainsi que les 8 valeurs décimales 
nécessaires à l'instruction SYMBOL, pour obtenir 
ce caractère. 


ANALYSE 


L'instruction INKEY$ est utilisée pour saisir une touche au clavier. 
La valeur ASCII de cette touche est comparée à celles des touches de 
fonction du programme. 


ÉNONCÉS ET ANALYSES 


Le calcul des paramètres décimaux de l'instruction SYMBOL est ex- 
pliqué ci-dessous par un exemple. Supposons que la quatrième ligne 
de la grille soit : 


128 64 32 16 8 4 2 1 
D 0 == 0 C0 


Le quatrième paramètre de l'instruction SYMBOL est alors égal à : 
128+32+16+8+1—-185 





EXERCICE 4.17 





PROBLEME :transformer les quatre rangées du clavier en clavier 
musical. Les sept touches de chaque rangée sont uti- 
lisées pour jouer les sept notes d'une gamme (—1,0,1 
et 2). La durée de la note est fonction de la durée d'ap- 
pui sur la touche correspondante. 


ENTRÉE : l’une des sept touches des quatre rangées. 
SORTIE : une des 28 notes choisies. 
ANALYSE 


L'instruction INKEY$ est utilisée pour savoir si une touche a été 
frappée. Si la touche correspond à l’une des 28 touches choisies pour 
jouer une note, un son de durée brève est émis. Les valeurs de pério- 
de des gammes sont passés par une liste de DATA. Pour établir la 
correspondance entre la touche frappée et la note à jouer, on peut : 


1) ranger les notes dans un tableau 

2) calculer par l'instruction INSTR le rang de la touche frappée dans 
la chaîne de caractères constituée par les 28 touches choisies du 
clavier. 

3) jouer la note de même rang dans le tableau. 
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EXERCICES EN BASIC POUR AMSTRAD 





EXERCICE 4.18 
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PROBLÈME : programme pédagogique d'enseignement de l'addi- 


ENTRÉE 


SORTIE 


ANALYSE 


tion. Une addition de 2 nombres (chacun compris entre 
1 et 1000) est affichée en mode 0. Pour chaque co- 
lonne, l'élève doit trouver le chiffre à mettre en des- 
sous du trait d'addition et la retenue s'il y a lieu. Puis 
par appui sur la barre d'espacement, l'élève peut dé- 
couvrir le résultat. 


: deux nombres, compris entre 1 et 1000. La barre d’es- 


pacement. 


: à chaque appui sur la barre d’espacement, le résultat 


de la colonne s'inscrit en dessous du trait d'addition. 
La retenue, s'il y en a une, s'affiche dans la colonne 
suivante en clignotant. 


Les chiffres des unités sont isolés puis additionnés. Le résultat par- 
tiel obtenu est affiché dans la colonne des unités et, dans le cas où il 
ÿ a une retenue, elle est affichée dans la colonne des dizaines. Puis 
on recommence avec les deux chiffres des dizaines, puis avec ceux 
des centaines. Pour isoler dans un chiffre (unité, dizaine, centaine) on 
peut, par exemple, utiliser l'instruction MOD ou traiter ce nombre 
comme une chaîne de caractères. 


CHAPITRE V 


JEUX GRAPHIQUES 
(Tir à la cible, télécran, 
glouton, loto sportif, 
loto, machine à sous, 
pendu, calcul mental, 
mastermind, 

leçon de géographie, 
tours d'Hanoï, 
répertoire 
téléphonique] 


EXERCICES EN BASIC POUR AMSTRAD 





EXERCICE 5.1 ]: TIR SUR CIBLE 





PROBLEME : un projectile, tiré par une pression sur la barre d'es- 
pacement, part du bas de l'écran pour atteindre une 
cible située en haut de l'écran. Cette cible comporte 6 
cases numérotées de 1 à 6. Le programme comptabi- 
lise le nombre de points marqués (score), et s'arrête 
quand le nombre de coups joués atteint la valeur 20 
ou par appui sur la touche ENTER. 


ENTRÉE :touches frappées au clavier. 


SORTIE :affichage de la cible constituée de 6 cases, utilisant 
deux couleurs en alternance et numérotées de 1 à 6. 
Affichage du projectile se déplaçant vers la cible en 
effectuant des écarts aléatoires sur la gauche et sur la 
droite. Affichage du score et du nombre de coups 
joués. 


ANALYSE 


L'affichage de la cible se fait par l'instruction WINDOW qui permet 
de définir six fenêtres que l’on colorie par l'instruction CLS. L'instruc- 
tion INKEY$ permet de saisir un caractère au clavier. Si ce caractère 
est un espace, le projectile est tiré d'un point situé en bas de l'écran 
et à une position horizontale, choisie arbitrairement par l'instruction 
RND. Le projectile se déplace ensuite sur l'écran en effectuant des 
écarts de une à trois positions, sur la gauche ou sur la droite. Quand 
le projectile a atteint la cible, sa position horizontale permet de déter- 
miner la case touchée. 





EXERCICE 5.2 |: JEU DU GLOUTON 


PROBLEME : un glouton se dirige du bord gauche vers le bord droit 
de l'écran en émettant un signal sonore (beep). Le tra- 
jet est parsemé d'obstacles, répartis aléatoirement sur 
l'écran. Le but du jeu est d'atteindre le bord droit en 
évitant ces obstacles : pour cela, le joueur peut faire 
monter ou descendre le glouton à l'aide de deux 

.- touches du clavier. 
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ENONCES ET ANALYSES 


ENTRÉE : la barre d’espacement, la touche Z pour monter et la 
touche \ pour descendre. 


SORTIE : l'écran parsemé d'obstacles. Le glouton se dirigeant 
du bord gauche vers le bord droit en émettant un beep. 





GLOUTON 
Z vers le haut NX vers le bas 








ANALYSE 


Le nombre d'obstacles sur la zone de jeu croît en fonction du ni- 
veau de difficulté. L'utilisation de 2 caractères graphiques, définis par 
l'instruction SYMBOL, permet de représenter successivement le 
glouton la bouche ouverte puis la bouche fermée. Pour tester si le 
glouton a rencontré un obstacle, on utilise l'instruction TEST qui ren- 
voie le code couleur d’un point de l'écran. 





EXERCICE 5.3 }: LOTO NATIONAL 









PROBLÈME : faire un programme qui affiche une grille du loto na- 
tional et coche les 6 numéros obtenus par tirage aléa- 
toire. 
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EXERCICES EN BASIC POUR AMSTRAD 


ENTRÉE : une touche est attendue au clavier pour obtenir un 
nouveau tirage. 


SORTIE : la grille du loto national, représentée par un rectangle 
de couleur jaune sur lequel sont inscrits en rouge les 
49 premiers nombres. Les six nombres tirés aléatoi- 
rement sont cochés sur cette grille à l’aide d'une croix. 


Pour obtenir un 
autre tirage 
taper une touche 


Pour arr 


eter 
taper ENTER 


D © -J M 1 dd © D 














ANALYSE 


La grille du loto national comprend les 49 premiers nombres, ins- 
crits en rouge sur fond jaune suivant 5 colonnes de 10 nombres. Si 
les nombres tirés au hasard sont compris entre 1 et 9, ils sont cochés 
sur la grille à l'aide d'une croix. S'ils sont compris entre 10 et 49, ils 
sont cochés à l’aide de deux croix. La croix est obtenue à partir de 
l'instruction SYMBOL. La grille complète du loto est définie par l'ins- 
truction WINDOW. Cela facilite ensuite la détermination de l'empla- 
cement d’un numéro dans cette grille. 


ÉNONCÉS ET ANALYSES 





EXERCICE 5.4 }: CALCUL MENTAL 


PROBLÈME :le programme choisit de façon aléatoire : 


1) deux nombres entiers compris entre 1 et 1000 
2) une opération : addition, soustraction ou multipli- 
cation. 





La réponse du joueur est vérifiée et doit être donnée 
dans un temps limité à 10 secondes. 


ENTRÉE : la réponse du joueur. 


SORTIE : l'opération à faire. 
L'un des 3 messages suivants : 


1) Vous calculez vite et bien 
2) Vous calculez vite mais mal 
3) Vous calculez trop lentement. 


Le résultat exact s'il y a lieu. 





CALCUL MENTAL 


Vous calculez vite mais mal 
Le resultat est : -222 


Pour arreter, tapez sur ENTER 
Pour continuer tapez sur 
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EXERCICES EN BASIC POUR AMSTRAD 


ANALYSE 


Suivant l'opération tirée, l’un des 3 sous-programmes (addition, 
soustraction, multiplication) est exécuté. Le branchement à ce sous- 
programme est obtenu simplement par l'instruction ON... GOSUB... 
L'instruction AFTER permet d'interrompre un programme lorsque le 
temps écoulé est supérieur à une valeur fixée. Toutefois, AMSTRAD 
n'interrompt jamais une instruction en cours, mais attend son achè- 
vement, avant d'aller exécuter le sous-programme associé à l'ins- 
truction AFTER. Par conséquent, il est impossible d'interrompre 
l'instruction INPUT et donc d'utiliser cette instruction pour entrer une 
réponse en un temps limité. Le moyen de tourner la difficulté est de 
saisir la réponse par l'instruction INKEY$. 





EXERCICE 5.5 |: MACHINE À SOUS 


PROBLÈME : réaliser en mode 0 un programme simulant une ma- 
chine à sous. 


ENTRÉE : une touche pour lancer la machine. 
SORTIE : affichage de la machine et du score en mode 0. 
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ÉNONCÉS ET ANALYSES 


ANALYSE 


Une machine à sous est constituée de 3 fenêtres. Dans chacune 
d'elles défile un symbole : pique, cœur ou carreau. Chaque symbole 
peut prendre une des trois couleurs bleu, blanc ou rouge. Cela fait au 
total 729 combinaisons différentes. Le joueur marque 1000 points si 
la combinaison tirée au hasard est : cœur bleu, cœur blanc et cœur 
rouge. Le joueur marque 500 points s'il tire l'une des 5 configurations 
différentes de la précédente et constituée d'un cœur bleu, d'un cœur 
blanc et d'un cœur rouge. Dans tous les autres cas, il perd 20 points. 
Pour obtenir une impression de défilement des symboles qui appa- 
raissent dans les fenêtres, on effectue un grand nombre d'affichages 
rapides avant l'arrêt de la machine (affichage de la combinaison ti- 
rée). Pour représenter la combinaison tirée au hasard, on numérote 
de 1 à 9 les différents symboles : 


pour pique de couleur rouge 
pour pique de couleur blanc 
pour pique de couleur bleu 
pour carreau de couleur rouge 
pour carreau de couleur blanc 
pour carreau de couleur bleu 
pour cœur de couleur rouge 
pour cœur de couleur blanc 
pour cœur de couleur bleu 


© “J O O1 B © ND — © 


Ainsi le nombre 753 représente la suite des trois symboles : cœur 
blanc, carreau bleu et carreau rouge. 





EXERCICE 5.6 | : JEU DU PENDU 





PROBLÈME : trouver un mot caché en proposant des mots de même 


longueur. 
ENTRÉE :les mots proposés. 
SORTIE : affichage, pendant un temps limité, de la liste des mots 


cachés, puis de l'écran de jeu. Une partie de l'écran 
est utilisée pour afficher successivement les lettres 
découvertes du mot caché. Une autre partie de l'écran 
est utilisée pour entrer les réponses du joueur. 
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EXERCICES EN BASIC POUR AMSTRAD 





JEU DU PENDU 
Pour arreter, tapez FIN 


Quel est le mot 


Nombre d'essais 





ANALYSE 


La liste des mots cachés est donnée par une ou plusieurs instruc- 
tions DATA. Le mot proposé est entré au moyen de l'instruction IN- 
PUT. Cette entrée est faite dans une fenêtre d'écran définie par 
l'instruction WINDOW. Si une des lettres du mot proposé est en bonne 
position (utiliser l'instruction MIDS), cette lettre s'affiche dans la fe- 
nêtre d'écran réservée au mot caché. 





EXERCICE 5.7 V: TÉLÉCRAN 


PROBLÈME : réalisation d'un télécran graphique à 4 couleurs. 


ENTRÉE : les touches de déplacement du curseur, les touches 0, 
1,2, et 3, la barre d'espacement et la touche ENTER. 


SORTIE : les touches de déplacement du curseur sont utilisées 
pour dessiner sur l'écran à l'aide d'un point lumineux 
(prévoir la couleur noire pour effacer). 
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ÉNONCÉS ET ANALYSES 


TELECRAN : Sortie(ENTER) x Effacer :BARRE 

















9 :NOIRaES 1 : RLANC3#6#2 : BLEU%##3 : ROUGE 








ANALYSE 


L'instruction INKEY$ permet de saisir une touche du clavier. L'ins- 
truction SPEED KEY permet d'accélérer la vitesse de répétition d'une 
touche appuyée en continu. Quand le joueur appuie sur l'une des 
touches 0, 1, 2 et 3, le point lumineux s'allume. La touche ENTER fait 
sortir du programme et rétablit dans la couleur correspondante une 
vitesse normale par l'instruction SPEED KEY. 





EXERCICE 5.8 |: LECON DE GÉOGRAPHIE 


PROBLÈME : afficher la carte de France. Puis positionner un point 
lumineux clignotant. Le joueur doit donner le nom de 
la ville repérée par ce point lumineux clignotant. 


ENTRÉE : le nom de la ville. 


SORTIE : affichage de la carte de France, d'un point clignotant, 
de la réponse d'AMSTRAD. 
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EXERCICES EN BASIC POUR AMSTRAD 


est cette ville : 
ous etes bon en 





ANALYSE 


Les coordonnées du contour de la carte de France sont enregistrées 
sous forme d'une liste d'instructions DATA. Pour déterminer l'empla- 
cement des points successifs, on peut dessiner la carte de France sur 
une feuille de papier quadrillée de 640 x 400 pavés puis relever en- 
suite les coordonnées des points sur cette feuille. On fait de même 
pour les différentes villes à placer. L'instruction RND est utilisée pour 
tirer une ville au hasard parmi celles qui ont été mises dans la liste. 





EXERCICE 5.9 L: LOTO SPORTIF 


PROBLÈME : sept coureurs à pied effectuent une course le long de 
sept couloirs différents. Chaque couloir est repéré par 
son numéro. Pour afficher un joueur, on utilise un ca- 
ractère graphique construit par l'instruction SYMBOL. 
Le but du jeu est de pronostiquer le tiercé gagnant. 
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ÉNONCÉS ET ANALYSES 


ENTRÉE : le tiercé joué. 


SORTIE :affichage de la piste, déroulement de la course, affi- 
chage de l'ordre d'arrivée. 


ANALYSE 


L'affichage et le déroulement de la course dans les sept couloirs 
sont facilités par l'utilisation de l'instruction WINDOW. Le program- 
me saisit ensuite le pronostic du joueur et en vérifie la validité (les 
numéros proposés doivent être entiers, compris entre 1 et 7 et tous 
différents). L'instruction RND permet de simuler l'avance aléatoire de 
chaque coureur dans son couloir. Les trois premiers coureurs qui 
franchissent la ligne d'arrivée sont affichés et le résultat est comparé 
au tiercé joué. 





EXERCICE 5.10 |: RÉPERTOIRE TÉLÉPHONIQUE 


PROBLÈME :écrire un programme qui effectue sur un fichier de 
données les opérations suivantes : 





1) Entrée du fichier à partir du lecteur 

2) Affichage du fichier à l'écran 

3) Insertion d’un élément dans le fichier 

4) Suppression d'un élément dans le fichier 
5) Enregistrement du fichier sur le lecteur 
6) Sortie du programme. 


ENTRÉE : l'un des codes du menu proposé. Informations conte- 
nues dans une fiche du répertoire. Lecteur de cas- 
settes ou de disquettes. 


SORTIE :affichage du menu, du fichier total, différents mes- 
sages indiquant à l'utilisateur la marche à suivre. Lec- 
teur de cassettes ou de disquettes. 
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EXERCICES EN BASIC POUR AMSTRAD 





Lecture du fichier 

Affichage du fichier 

Insertion d’ une fiche 

Suppression d'une fiche : 

nn du fichier 
in 





M 


DO UD NU ps 


Qheration cho: 
1 enise 3 


Dominique 


3 
4 
S 


Emmanuel 


Pour revenir au menu, tapez une touche 





ANALYSE 
L'écran sera divisé en trois fenêtres d'affichage : 


1) La fenêtre supérieure sert à afficher le menu. 

2) La fenêtre centrale sert à effectuer les différentes opérations sur 
le fichier. 

3) La fenêtre inférieure sert à inscrire les différents messages de 
communication avec l'utilisateur (exemples : “SUPPRESSION IM- 
POSSIBLE”, “Pour revenir au menu, tapez une touche”..….). 


Pour lire un fichier, il faut au préalable ouvrir le fichier par l'instruction 
OPENIN, puis effectuer les lectures au moyen de l'instruction INPUT 
#9 et enfin fermer le fichier par l'instruction CLOSEIN. L'instruction 
EOF permet, lors de la lecture, de déterminer de façon indirecte le 
nombre d'enregistrements du fichier. 

De même pour écrire un fichier, il faut au préalable ouvrir le fichier 
par l'instruction OPENOUT, puis effectuer les écritures au moyen de 
l'instruction PRINT #9 et enfin fermer le fichier par l'instruction CLO- 
SEOUT. Lors de l'insertion d’un nouvel élément, il faut incrémenter 
le nombre total d'éléments. 

La suppression d'un élément est obtenue en indiquant le numéro de 
l'élément à supprimer. Dans le cas où la suppression est impossible, 


ÉNONCÉS ET ANALYSES 


un message d'erreur s'inscrit. L'instruction ON … GOSUB permet, en 
fonction du numéro de menu choisi, de se brancher sur les différents 
sous-programmes. 





EXERCICE 5.11}: MASTERMIND 












PROBLEME : l'ordinateur choisit une combinaison de cinq pions de 
couleurs prises dans un ensemble de huit couleurs 
que le joueur doit découvrir en proposant des essais 
successifs. 


ENTRÉE : les touches de déplacement horizontal, la touche EN- 
TER, les différents essais entrés par la lettre initiale de 
la couleur choisie (B : bleu, W : (en anglais) blanc, R : 
rouge, V : vert, J : jaune, G: gris, M : magenta, O: 
orange). 


SORTIE : un premier écran est utilisé pour afficher les règles du 
jeu. Un second écran est utilisé pour afficher le nom- 
bre de pions bien et mal placés et la configuration 
cachée après 7 essais infructueux. 





MASTERMIND 


chtenir 


B 
H 
R 
y 
J 
G 
[ul 
0 


Pour 
Pour 


Four 


E 
M 
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EXERCICES EN BASIC POUR AMSTRAD 


ANALYSE 


Le nombre de couleurs utilisées (8) nécessite l'affichage en mode 
0. 
La combinaison à découvrir est créée de façon aléatoire sous la forme 
d'un tableau de cinq valeurs représentant chacune une couleur. L'es- 
sai proposé est constitué d’un tableau de même structure. Par 
exemple, la suite 5, 2, 3, 3, 1 représente la suite des 5 pions jaune, 
blanc, rouge, rouge et bleu. Le problème consiste alors à comparer 
un à un les éléments de ces deux tableaux. 





EXERCICE 5.121: TOURS D'HANOÏ 





PROBLEME :le jeu est constitué de trois tours coniques, dont la 
première comporte 5 anneaux de tailles différentes. 
Le but du jeu est de faire passer les 5 anneaux sur la 
troisième tour en s'aidant des 2 autres. Le joueur peut 
déplacer uniquement l'anneau supérieur d'une tour et 
l’'amener sur une autre tour, à condition de ne pas 
superposer un grand anneau sur un petit. 


ENTRÉE : le numéro de la tour de départ et le numéro de la tour 
d'arrivée. 

SORTIE ‘affichage des 3 tours et des 5 anneaux sur la première. 
Déplacement des anneaux en fonction de la réponse 
du joueur. 

—_—_—______———)»> 
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ÉNONCÉS ET ANALYSES 


JE =. 
=—. . He. 


8 


TOURS D'’HANOI 


Deplacement depuis Jesse 3 


Jusqu'a la tour 








ANALYSE 


Chaque tour peut être caractérisée par un nombre binaire à 5 
chiffres. Un 0 représente un niveau sans anneau et un 1 représente 
un niveau occupé par un anneau. Par exemple, la tour ci-dessous est 
caractérisée par le nombre 10011. 





Pour vérifier si le joueur a gagné, il faut tester le nombre binaire 
associé à la tour 3, en le comparant à 11111. 


91 


DEUXIÈME 
PARTIE 


SOLUTION 
DES 
EXERCICES 


EXERCICES EN BASIC POUR AMSTRAD 





EXERCICE 1.1 
PROGRAMME 





Solution 1 : 





M OUEL 
"OLIEL. 

FERINT: PEINT 
Mo PRINT TABCLO)LEFTS NS, Los" "se LEFTé(FS, Los" 


EST VOTRE NOM "5 N# 
EST VOTRE FPRENCM "3 F# 






60 FAINT 
70 FAINT LONGUEUR DU NOM 3 LEN CN#) 
0 END 


VARIABLES 


N$ nom 
P$ prénom 


COMMENTAIRES 


40-60 : passe des lignes pour faciliter la lecture. 
50 : affichage, à partir de la colonne 10, des initiales suivies 
d'un point. 


Solution 2 : 


es 
=) 





10 CLS 
20 INPUT GUEL E 
0 INEUT "OUEL 
40 PRINTS:FRINT 
50 PRINT LSING "Las NSs FPS 

& FRINT 

70 FRINT "LONGUEUR DU NOM "3 LEN (N#) 
&OQ END | 


VE 


VOTRE 






NOM "5 NS 
FRENCM "37 








50 : une autre solution consiste à utiliser l'instruction PRINT 
avec une description (format) de la ligne à afficher. Cette 
description s'obtient en utilisant l'instruction USING qui 
indique à l'instruction PRINT de quelle façon doit se faire 
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SOLUTION DES EXERCICES 


l'affichage de N$ et P$. Cette description est mise entre 
guillemets (” ”) : le signe ! indique que l'on doit prendre 
uniquement la première lettre de N$, puis que l'on doit 
afficher le point. Comme le format est épuisé, on repart du 
début du format pour afficher P$. 





EXERCICE 1.2 


PROGRAMME 















20 INPUT "OUEL EST TON PRENOM °3PS 
30 FRINT 
49 INPUT "QUELLE EST TON ANNEE DE NAISSANCE 





Q/R) OUTRE 
IF Ké#e"nr 
TAB CH)'EN BIEN EONJOUR 


TAB CLO-LEN (F4) /2)PS 





ME NE REFETERAT À: FERSONNE QUE 








PRINT TAR£S) "AUNIOURD" HUT" 
INT: FEINT 


169) ANSE" 


V$ent THEN 200 





MODE 1 


VARIABLES 


A année de naissance 
P$ prénom 
R$ réponse 
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EXERCICES EN BASIC POUR AMSTRAD 


COMMENTAIRES 


50 : saute une ligne pour faciliter la lecture. 

90 : MODE 0 provoque l'affichage de caractères de taille 
double. 

170 : (1985-A) donne l'âge (remplacer éventuellement 1985 par 
l'année actuelle). 

200 : la frappe d'une touche quelconque arrête le programme 
et l'affichage repasse en mode 1 (ligne 210). 





EXERCICE 1.3 
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PROGRAMME 





| Affichage d'une ligne et 

20 FEM d'une colonne d'étoiles 

HO FEM ACKOX A AOK AONCHOK HOHEKOK NOK NO NO CON 

“0 CLS 

60 INPUT Numero de Ligne (entre 1 et 25) 4 
n TE 

FO CIF LIGESL OR LIG:SS OK LIG£FINT(LIG) THEN 4 
) 

A0 INPUT Numero de colonne (entre 1 et 46) : 
90 IF COLET OK COL:40 OK COL£SINT{ICOL) THEN 8 
() 

100 CLS 
110 LOCATE 
120 FOR TI 








xs 
140 NEXT 
120 LOCAT L'LIG: PRINT STRINGS (40, x) 
160 IF INEEY#=e"" THEN 1460 

170 END 


VARIABLES 


LIG numéro de ligne 
COL numéro de colonne 


SOLUTION DES EXERCICES 


COMMENTAIRES 

110-140  : affichage de la colonne d'étoiles. 

150 : affichage de la ligne d'étoiles. 

160 : pour éviter une remontée des lignes et l'effacement partiel 


de l'écran, provoqué par le message READY, une touche 
est attendue au clavier pour arrêter le programme. Puisque 
cette touche n'importe pas, elle n'est pas conservée à tra- 
vers une Variable. 





EXERCICE 1.4 


PROGRAMME 
















M Oétfichage des codes A4SCTT 


ACC ACKACHONE HN ACACK CHA A ACA ICX ACKCX 


cades GSCIL" 


‘sFRIN 


PRINT TARI7) ét tichage des 
&i FRINTS PRINT TAR(IZ) "Tapez une touche 












70 MSSINÉEVE: IF Ate"" THEN 70 
E0) TABLE) As" 2 "5 ASC (AE) 


50 GOTC 70 


VARIABLE 


A$ touche frappée au clavier 


COMMENTAIRES 


70 : la touche frappée au clavier est conservée dans A$, puis 
comparée à la chaîne vide. Si le résultat est vrai, le pro- 
gramme boucle en 70. Dans le cas contraire, le code ASCII 
de A$ est affiché. 


Remarque : pour sortir du programme, tapez deux fois sur la touche 
ESC, 


97 


EXERCICES EN BASIC POUR AMSTRAD 





EXERCICE 1.5 








PROGRAMME 


10, CLS 

#0 INPUT CGLEL NOMBRE SN 

30 INPUT PQUEL TÉAUX DE FOURCENTAGE" SF 
40 FRINT 

J0 DNENXF/100 

60 FAINT "VARTATION à "5 DN 

70 FRINT MVALELIR FINALE s "5: N+DN 

90 END 


VARIABLES 


N valeur numérique 
P taux de pourcentage 
DN pourcentage 


COMMENTAIRES 


50 : calcul de la variation. | 
70 :affichage de la valeur numérique finale. 





EXERCICE 1.6 
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PROGRAMME 





20 INFEUT "OUEL EST VOTRE FRENOM":PS 
30 INFUT "COMRIEN  DEFENSEZ-VOUS QUOTIDIENNE 
MENT FOUR VOTRE NOURRITURE" : D 
40 DA=DX365#1.07 
50 CLS . 
60 PRINT "HE BIEN BONJOUR 3P# 
70 PRINT: FRINT | 
80 FRINT "VOUS DÉFENSEZ à FEU PRES": DA: "ERANC 
S DE NOUREITURE FA &N" nt 
90 LOCATE 7,10 
NT "MOI JE DEFENSE © CENTIME 
TÉ 1,74 














1£0 END 


SOLUTION DES EXERCICES 


VARIABLES 


D dépense quotidienne 
DA dépense annuelle 
P$ prénom 


COMMENTAIRES 


40 : calcul de la dépense annuelle. 
110 : positionnement du curseur à la ligne 24, pour éviter l'ap- 
parition du message Ready sous la dernière ligne affichée. 





EXERCICE 1.7 
PROGRAMME 















ENTREE DL NOMERE JL 
CRINT COQUEL NOMBRE TI ENTRE © ET 1000" 

4 INPUT "VOULEZ-VOUS CACHE "3 N 

JO IF N-INTIN)ESO OR NEO OR NY1000 THEN 50 

60 REM DEAUT DL SEL 

70 CLE 

40 FHRINT 

90 INPUT ESSAI "3E 

100 IF ESN THEN FRINT CTROE GRAND": GOTO 80 

110 IF EN THEN FRINT °TEOP FETIT':GO0TO &o 

160 FRINT "BRAVO VOUS AVEZ TROLIVE 0 

150 END 






, 
4 











VARIABLES 


N nombre à découvrir 
E essai 


COMMENTAIRES 


50 :le nombre à découvrir est testé sur les 3 conditions sui- 
vantes : 


- entier 
- Supérieur ou égal à O0 
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- inférieur ou égal à 1000. 
S'il est inférieur à O0 ou supérieur à 1000, un autre nombre 
est demandé. 


80 : passe une ligne entre chaque essai. 
120 : si les résultats des deux tests précédents sont faux (les 
deux nombres étant égaux), la ligne 120 est exécutée. 





EXERCICE 1.8 


PROGRAMME 








BIT E&SXEND) 471 
E 0 


1,18 

"UOULEZ-VOUS LANCER" 
NT ULE DE 4 NOUVEAU" 

90 INPUT "COUI/NON) "sûre 

100 FAINT 

110 IF A$e"OUI" THEN Oo 








VARIABLES 


D nombre entier aléatoire entre 1 et 6 
A$ réponse du joueur 


COMMENTAIRES 

20 : tirage du nombre aléatoire. 

70-90 : question posée au joueur (les deux réponses possibles 
sont incluses dans le texte affiché). 

110 :si l'utilisateur a répondu OUI, alors l'exécution du pro- 


gramme continue à la ligne 20. 
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EXERCICE 1.9 


PROGRAMME 





VARIABLES 


| compteur 
N nombre de dés à lancer 
S somme des nombres sortis pour un lancer 


COMMENTAIRES 
50 : si N = 0, le programme s'arrête. 
60 : cette ligne doit se trouver après la ligne 50, sinon le pro- 


gramme ne s'arrêterait pas pour N = 0. 


Remarque : pour calculer la somme du lancer de N dés, la variable S 
est initialisée à 0 en 70. Elle est ensuite augmentée, dans la boucle 
80-100, de la valeur obtenue à chacun des N lancers de dés. 
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EXERCICE 1.10 


PROGRAMME 





19 CLS 

20 REM INITIALISATION DES VÉSRIARLES 

FO NSINT CLOOOXKEND) +1 

40 C0 

4% PRINT: FRINT "Trouvez un nombre entre 1 et 
1000! FRINT 

0 REM DERUT DU JEU 

&t CrC+i 

70 FHRINT 

60 FRINT "ESSAI Ne MsCss INPUT E 

GO IF EN THEN FRINT TROP GRAND: GOTO 50 
190 IF EN THEN FRINT UTROF FETIT': GOT 50 
110 FRINT:FRINT 

120 PHRINT PEARAVO VOUS AVEZ TROLIVE EN Macs C0 
LIF CS)" 

150 FRINTs FRINT 

140 END 


VARIABLES 


C compteur des essais 
N nombre à découvrir 
E numéro de l'essai 


COMMENTAIRES 


30 : un nombre entier est choisi au hasard entre 1 et 1000. 

60 :le compteur C est augmenté de 1 (il est incrémenté). Ne 
pas oublier de le mettre à 0 en début de programme (ligne 
40). 

110 : deux lignes blanches sont passées. Cette ligne et les sui- 
vantes ne seront exécutées que si les résultats des deux 
tests précédents sont faux. 

120 : C contient le nombre d'essais. 
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EXERCICE 1.11 


PROGRAMME 





FALL 








INT MFCOUR TIRER UNE CONSOMME, TAF 


PRINT "POUR TIRER UNE VOYELLE, TAPEZ vw 
LOCATE 11,12 







LEMUU THEN 110 

B=MIDE COCS, POXRND+OS, 
D) E ATHEMIDS CVS, BKENDED. ES, 1) 
140 FRINT AT#S" 

150 NEXT I 

160 FRINT 

170 LOCATE 1,2 





VARIABLES 


| compteur 

CO$ chaîne de consonnes 
VO$ chaîne de voyelles 
REP$ réponse du joueur 

N nombre tiré au hasard 
AT$ lettre tirée 


COMMENTAIRES 


40 : la chaîne alphanumérique CO$ contient l'ensemble des 20 
consonnes. 

50 : la chaîne alphanumérique VO$ contient l'ensemble des 6 
voyelles. 

60 :la fonction RND est initialisée de façon aléatoire par la 
fonction RANDOMIZE ; le paramètre TIME est une valeur 
stockée dans votre ordinateur AMSTRAD qui s'incrémente 
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(+1) tous les 1/300° de seconde. |l est impossible de pré- 
voir cette Valeur à un instant donné. 

130 : si la réponse est “C”, la lettre tirée est prise au hasard 
parmi les 20 lettres de la chaîne CO$ ; en effet, l'instruction 
MID$(CO$,20*RND +0.5,1) extrait de COS la lettre dont la 
position est la valeur arrondie de 20*RND+0.5. De même, 
si la réponse est “V”, la lettre tirée au hasard est prise 
parmi les 6 lettres de la chaîne VOS. 





EXERCICE 1.12 


PROGRAMME 





1,10 
RAYON DU CERCLE "3 RAYON 
XF IXHAYON 
FA YONXFAY CIN 















A! 
PRINT 
70 PRINT LE FERIMETRE EST EGAL à "3 FERI 
FRINT 

20 FRINT "LA SURFACE EST EGALE À "sAIRE 
100 FRINT 

119 END 





VARIABLES 


RAYON rayon du cercle 
PERI périmètre du cercle 
AIRE surface du cercle 
COMMENTAIRES 


40-50 : Pl est un nombre stocké dans votre ordinateur AMS- 
TRAD ; il a pour valeur 3,14159265. 
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EXERCICE 1.13 


PROGRAMME 





FE ENTREE DES DONNEES 
INELIT NOM DU FAYS 2 UF 
BE FRINT 
4 INPUT PSUPERPFICIE Cen kme) 5 US 
SO INPUT "POFULATION fen millions d'hab.) os " 
SF 
6 REM CALCUL DE LA DENSITE 
70 DeFX 1000000 /S 
30 REM 
VO REM GFFICHAGE 
100 FAINT 
110 FAINT 'Favets TAR (14H): "Densite (hab, /kma)" 
120 FRINT STRINES C4, M) TAB C1 4) ss STRING# 418," 
1) 
LEO PRINT P#i TARA) a USINE CAFE HER D 
140 FRINT 
159 END 


VARIABLES 


P$ nom du pays 

S superficie du pays 
P population du pays 
D densité 





COMMENTAIRES 


70 : D donne la population en habitants par km?. 

120 : l'instruction STRING$(I,“-") construit une chaîne de Itirets 
qui servent ici à souligner les mots Pays et Densité (hab./ 
km‘). 

130 : P$ est tout d'abord affiché, puis D s'inscrit, à partir de la 
colonne 17, sur 4 positions pour la partie entière et 4 po- 
sitions pour la partie décimale. Si D est supérieur à 10000, 
le signe % s'inscrit dans l'affichage, pour indiquer l'impos- 
sibilité de cadrer sur 4 positions la partie entière (essayer 
par exemple S = 100 et P = 1). 
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EXERCICE 1.14 


PROGRAMME 













| CLS 
0 INPUT "Nombre de valeurs à comparer à MN 
40 DIM DCN) 

SE EM 
99 REM ENTREE DES VALEURS 

79 FÜR Iei TON 

0 FRINT "Valeur "sl; 

DO INFUT "M os M" DCT) 

NEXT TI 

REM 

REM RECHERCHE DU MINIMUM 
EM ET DU MAXIMUM 

MLD C1): MézD (1) 

FOR Teil TO ON 
MLÆMINCME, DT) 0) 

4 mé, DCI) 0) 

XT 

"1 












M: 
Ü 







ME: 

FL: 
LM AFFICHAGE 

FRINTSs FRINT 

FÉLNT La plus petite 

FRINT "La plus grande 

ENT FRTNT 









aleur get UM:MTI 
valeur est !"sMA 










VARIABLES 


compteur 

N nombre de valeurs à comparer 
D(N) tableau des valeurs 

MI plus petite valeur de D 

MA plus grande valeur de D 


COMMENTAIRES 


130 :on initialise les valeurs de MI et MA en leur affectant la 
première valeur du tableau D ; on évite ainsi l'erreur de 
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140 


SOLUTION DES EXERCICES 


démarrer les comparaisons avec la valeur 0 qui peut être 
plus grande ou plus petite que les valeurs de D. 

: on peut démarrer le compteur avec la valeur 2. Toutefois 
en commençant avec 1, on évite d’avoir une erreur lorsque 
N = 1. 





EXERCICE 1.15 





go 
90 


N$ 
P$ 





PROGRAMME 
10 CLS 
20 INPUT MGuel est votre nom "NS$ 


INFUT Quel est votre prenom M", FS$ 

REM 

NÉSURPERS (LEFTS (NS, 1) +LOWERS CMIDS NS, 2) ) 
PFERS CLEFTS(CFS, L)) +LOWERS (MIDS (PF, 2) ) 





LOCATE 19-0,SXLEN (N#+P#) , 10 
PRINT Ng+" "+p 


100 LOCATE 1,205: END 


VARIABLES 


nom de la personne 
prénom de la personne 


COMMENTAIRES 
50-60 : l'instruction UPPERS$ transforme une chaîne de caractères 


en lettres majuscules. Les lettres déjà en majuscules sont 
conservées. De même, LOWERS$ transforme une chaîne de 
caractères en lettres minuscules. Les lettres déjà en mi- 
nuscules sont conservées. 
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EXERCICE 1.16 





PROGRAMME 








JO ERRCIR GOTEr 160 


programme traite une erreur prod 
: La division de à par FE, 
INT "Par exemple division par 
INT: FERINT 
60 INPUT ME ou MA 

Se 
“H 
NT: FRINT 
120 FRINT "6H 
150 FRINTs FRINT ee ENTER pour 
Tapez une touche pour CT 
ÉBEINEE SES TE Age Ut THEN 
IF RBeCHRS CES) THEN 0 
END 
RENM Programme de traitement de 
l'erreur 
AONO NON ONE NON ME AC NC ME AC NOK HE MCE KO CCX 
INT: FRINT 
FRINT "L'erreur de code"sERKR; "ef 
FRINT "produite a La  ligne"sERL 
; L'0 
























VARIABLES 


A dividende 

B  diviseur 

C quotient 

A$ touche frappée au clavier 


COMMENTAIRES 


30 : si une erreur se produit lors de l'exécution du programme, 
le programme se poursuit à la ligne 160. 
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200 : ERR contient le numéro de code de l'erreur. En standard, 
ce numéro est compris entre 1 et 31 et sa signification est 
donnée dans la documentation de votre ordinateur ; par 
exemple 11 signifie : essai de division par 0. 

210 : ERL contient le numéro de la ligne de programme où l'er- 
reur s'est produite. 

220 : RESUME indique la ligne où l'exécution du programme 
doit reprendre, après traitement de l'erreur. 





EXERCICE 1.17 


PROGRAMME 






Deux appuis gur La touche 
SE ENT CU CI CRUE LUI bi amechement en ù 
40 REM ME AAA AAC ACC OO 


0 ON BRESE GOSUR LEO 








FO OINE Es INE EH 7 
0 REM 
D REM Definition de La fenetre 0 
100 REM XXe ke OXOM OK OKON ONE ACMCXOHOKOKOK AK XX 
119 FAFER 0 
120 WI NDC Ii 1, 40, 17, 4 
150 € 
10 Fi EM 
150 REM Definition des & fenetres 
Léo FREM KACX KO HO HONOR KOKACK A KOHONCXKOK XX X 
170 FOR leo TO 5 
190 Eel MOD € 
190 WINDOW HI+L, LEXE +1, L'EXEAIS, GKTNT CT -E) 40) 
+1, EXINTECI-H) 420 +8 
200 PAPER HI4+L, CL MOD 542 
210 CLS H#I+1 
“0 NEXT TI 
CLS 
FEINT: FRINT 
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INPUT PGOUELLE CASE CHOLTSTSSEZ-VOUS sn 
NEINT CN) 

LFONET OK Nr THEN 250 

LUCATE #N, 4, 4 
FÉCINT HN, "Case MN 
FEU une tar 
HO fois 


continuer" 
pou arrete 





IF INÉEYS#="" THEN 320 ELSE 250 
BEM 

WINDOU 1,40, 1,25 

END 





VARIABLES 


|J,K compteurs 
N numéro de la fenêtre choisie 


COMMENTAIRES 


50 : cette instruction permet, par deux appuis successifs sur la 
touche ESC, de redéfinir en 330 la fenêtre 0, de façon à 
retrouver l'affichage sur tout l'écran. 

150-220 : définition des six fenêtres. 

270 : LOCATE #N,4,4 permet de se positionner à la ligne 4 et à 
la colonne 4 de la fenêtre N. On remarque que cette posi- 
tion est donnée en valeurs relatives à la fenêtre. 





EXERCICE 1.18 


PROGRAMME 





10 KREM 

20 KRENM CLIGNOTENT 

50 REM KKXKXXXXXXXX 

40 INPUT MQUEL EST VOTRE PRENOM UPS 
56 MODE O 

50 KREM 

70 KEM Farametres de couleur 
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SOLUTION DES EXERCICES 


je 
X 








E LO-LENCP#) /E, LO 
Fr F# 
INÉEY#e"S THEN 10 


Retour au MODE 1 


VARIABLE 
P$ prénom à afficher 


COMMENTAIRES 


100-110  : l'instruction INK permet de définir simultanément pour 
l'encre 2 couleurs d'affichage de codes 3 et 26. L'instruc- 
tion SPEED INK permet de faire varier la vitesse de cligno- 
tement de ces deux couleurs. Chaque paramètre indique 
en 50° de seconde la durée d'affichage de chaque couleur. 

220-290 : à la fin du programme, on retourne au mode 1 et aux cou- 
leurs initiales d'affichage. 
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EXERCICE 1.19 





PROGRAMME 


Solution 1 : 


Affichage avec gsQulignrement 
AC AOKHCKOAOKHOKOMON ME HONOKONC HE AC AC AC KO XX XX 





“9 INPUT CGUEL EST VOTRE NOM : UNS 

&9 INPUT "QUEL EST VOTRE PRENOM : "FS 
70 IF Fée" OR Nbe'" THEN 20 

GO FRINT 

DD LNSLEN (N#) 3 LPÆLEN(F#) 
STRINGSE (LAN, en) 
TÉeSTRINGSE (LE, en) 

Cie 1 + CLN4HLEF) /2 

PRINT TAB CED-PO) Nés UF 

PRINT TARCEO-FCD TRAITISs"  "sTRGITES 
END 















VARIABLES 


NS, P$ nom et prénom 

LN, LP longueur du nom et longueur du prénom 
TRAIT1$, TRAIÏT2$ chaînes de “-” servant à souligner 

PO position d'affichage 


COMMENTAIRES 


100-110 : la longueur du soulignement se fait en fonction des lon- 
gueurs du nom et du prénom, grâce à l'instruction 
STRING$. 

120-140 : l'affichage se fait au centre de l'écran. 


Solution 2 : 
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40 CLS 

Mo INPUT "OUEL EST VOTRE NOM : ",NS# 

60 INPUT "QUEL EST VOTRE FRENOM : ",F# 
70 IF Fée" OR Née"" THEN 20 | 
0 FRINT 

50 LNSLEN (N#) 3 LPeLEN (F4#) 

100 TRAITISESTRINGS (LAN, "10 

110 TRAITEHESTRINGS LE," "0 

120 FQsl+(LN+LP) /E 

150 PRINT TARCEO-FC) sNSi" UE 











150 LOCATE 1, VPOS (HO) —1 

160 PRINT TAB(20-PO) TRAITISI" "TRAIT 
170 PRINT CHARS (22) +CHRS (0) 

190 END 


VARIABLES 

N$, P$ nom et prénom 

LN, LP longueur du nom et longueur du prénom 

TRAIT1$, TRAIT2$ chaînes de “-” servant à souligner 

PO position d'affichage 

COMMENTAIRES 

140 : passage en mode transparent. 

150 : remontée d'une ligne par rapport à la position verticale 
courante donnée par VPOS(#0). 

160 ‘affichage des 2 traits de soulignement. 


Remarque : l'instruction PRINT CHR$(22)+CHR$(1) fait passer en 
mode transparent : deux caractères différents peuvent maintenant 
s'afficher à la même position de l'écran. L'instruction VPOS(#0) per- 
met ici de venir se repositionner sur le premier caractère à souligner. 
L'instruction PRINT CHR$(22)+CHR$(0) fait repasser en mode nor- 
mal : à une même position de l'écran, un seul caractère s'affiche. 
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EXERCICE 1.20 





PROGRAMME 




















| JOUCNS L 
LPO MARRRE 
PE DE, 

: Ii TO 









LA, SI" 


FAERNEOIT CTOsNEXT I 








arreter  Lager ENTER 


auriez pate 2 "NOTES 
4 ) 
J FÉINTs END 






REUR OUI MA4CHRSE (7036 


M 

190 RENM Feriades de la gamme 0 

190 REM  X 4OXK NOK OA AOHOACNOA HONOR KIA X 

200 DATA 478, id 7 US, HA, EE, à 





VARIABLES 


| compteur 
TABNOT tableau des valeurs de période des 7 notes de la gamme 


GAM$ notes de la gamme 

NOTES note à jouer 

-P position de NOTES dans GAM$ 
INOT indice dans le tableau TABNOT 
PERI période de la note à jouer 


COMMENTAIRES 


110 : l'instruction INSTR permet de déterminer la position de la 
note demandée dans GAMS ; supposons, par exemple, 
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que la réponse soit LA, INSTR(GAMS,NOTES) prend alors 
la valeur 16 ; en ajoutant 2 et en divisant par 3, on obtient 
6, qui est l'indice de la note LA dans le tableau TABNOT. 

200 : les Valeurs de période des notes de la gamme 0 sont don- 
nées par l'intermédiaire de l'instruction DATA. 





EXERCICE 1.21 


PROGRAMME 













10 
BC On MOR :. 


I 


Lecture CHA MON CELL 
ACC NCKOK HO ONCHE AC OACHK CAC ACC KOXK 


. . h IE 





NSTR (BAS , NOTES ) 

(Fe) JE 

=TAENOT € INOT) 

1, PERT, SOXDUREE, 741,1 


Pericdes de la Gamme 0 
REM CKOKOCOHKCKOROKOKOK ACOHKOK NON AK OK KE X 
DE fr 478, 486, ST CHEN, HIS, GEI, LES 
M Morceau à  jcnier 

EP EH RH KI OCR E 
DATA ET 





ie “ARS ge DCI, 1, DC 
LMI, ra EMI, FA: 1:50,2,50, 
SE is DO ISO 
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VARIABLES 

| compteur 

TABNOT tableau des valeurs de période des 7 notes de la gamme 
0 

GAM$ notes de la gamme 

NOTES note à jouer 

P position de NOTES dans GAM$ 

INOT indice dans le tableau TABNOT 

PERI période de la note à jouer 


DUREE durée de la note à jouer 


COMMENTAIRES 


60 : l'instruction ENV permet de définir une variation de l’am- 
plitude du son émis. Dans notre exemple l'enveloppe nu- 
méro 1 commence par monter, puis reste constante sur 
un palier, et décroît enfin. Les vitesses de la montée et de 
la chute sont indiquées en nombre de pas et en hauteur 
des pas. 

70 : l'instruction ENT a un rôle analogue à celui de ENV, mais 
les variations portent non plus sur l'amplitude mais sur la 
fréquence (aigu ou grave). 

280 : morceau donné par une suite de notes et de durée. La 
valeur 2 indique une blanche, la valeur 1 une noire et la 
valeur .5 une croche. 





EXERCICE 1.22 


PROGRAMME 





LD DIM ME CEO) VB CO), CS CCD 





fe1i TO MN 
BE LTD, VEUT). CS CT) 
Ï 
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FOR EIRE ciQe F4 

FRCLNT NS CNXRND +0, 5) pU OMS VE CNXRND+O, 5) 
RXRND +0, En 

FE 


R 













CENT: FRINT 
À 
NTE  FCILIR 
Fi SUR CONTINUER" 
SUR & FOUR &RRETER" 





A$=INFEYS 
IF A$="c" 
IF A$="a" 
GOT 190 
DATA & 
DATA 
A 
DATA 
DATA 
DATA 
DATA 


THEN 50 
THEN END 












= MACHINE 
VIVANT 
, DOF JRLE LIT 
E,OUVRE,LE SOIR 
ROULE SUR, LA VOIE FEF 
"ENVOLE VERS, LA LUNE 














VARIABLES 


compteur 

N nombre d'éléments dans N$(20), V$(20) et C$(20) 
A$ touche frappée au clavier 

N$(20) noms 

V$(20) verbes 

C$(20) compléments 


COMMENTAIRES 


60 et 510-560 : les différents éléments des phrases sont séparés par 
une virgule pour permettre la lecture de chacun 
d'entre eux. 

120 :affichage d'une phrase. Chacun des éléments la 
constituant est choisi au hasard. 

210-220 : le programme continuera à afficher des phrases jus- 
qu'à ce que l'utilisateur tape “A”. 


Remarque : pour permettre la lecture des phrases, celles-ci sont affi- 
chées par groupe de 14, une pression de la touche C étant attendue 
au clavier entre chaque affichage. 
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EXERCICE 1.23 


PROGRAMME 






RE M 

RENM Affichage des caracteres 
MEM de codes : TI Compris 
REM entre ES et Li 

REP GX KOHCHON OKCKOK ACHCHOKOXXCKOXK XXE X 
CLS 


2ONE ? 

PRINT TAR(7) "AFFICHAGE DES CARACTERES ASCII" 
LOCATE 5 

100 FOR Ir22 
110 FRINT CHRSCI), 
120 NEXT I 

120 END 





VARIABLE 
| compteur 


COMMENTAIRES 


70 : l'instruction ZONE 2 définit à l'écran des zones d'affichage 
de 2 caractères, soit 20 caractères par ligne. 
110 les caractères s'affichant à l'écran sont ceux dont le code 


ASCII est compris entre 32 et 255. 





EXERCICE 1.24 j 


PROGRAMME 


10 REM 

20 REM DAMIER À 2 COULEURS 
20 REM XX AX OX OAOK OK ONCK OK OKOICKOACKK EX 
40 CLS 

J0 INF 2,8: INE 5,25 
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0 
70 
FETE) 
go 
100 
110 
120 
150 


SOLUTION DES EXERCICES 


FOR I=0 TO 9 
FOR Jæ=O TO 9 
C=i-C:COL=24+C 
ORIGIN 0,0,40%1,40KJ+29,40X1,40X1+29 
CLG COL 
NEXT J 
C=i-C 
NEXT I 


149 GOT 140 

VARIABLES 

l,J compteurs 

C variable prenant la valeur 0 ou1 

COL variable de la couleur 

COMMENTAIRES 

50 : définit la couleur 2 en magenta (8) et la couleur 3 en jaune 
(24). 

80 et 120 : C prend alternativement les valeur 0 et 1 et donc COL prend 
alternativement les valeurs 2 et 3. 

90 : chaque zone d'affichage graphique est un carré de côté 
égal à 40 pixels (point lumineux élémentaire). 

100 : CLG COL efface en COL la zone graphique préalablement 


définie (90). 





EXERCICE 1.25 








PROGRAMME 

10 REM 

20 REM RERBOND 

O0 REM XXXXXX 

40 SYMEOL 250,80, RAC LE, MPF RFF 4 7E BEC, 0 
0 CLS 

80 INK La26sINE DIT INE 5,0 


PAFER 5 
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EXERCICES EN BASIC POUR AMSTRAD 


80 CLS 

90 WINDOW H1, 4,76, 4,20 
100 FAPFER #1, Ses PEN #1, 1 
110 € #1 





HLSXS Ye FRINT HIS ON" 
His X+DX, V+DYs PRINT HI, CHARS (250) 


A 


150 X=X+DX 
160 IF X5 
GOTO 120 


Y+DY 








OO KES THEN DK=-DX: SCUIND 


1,100, 


170 IF Yilé OK YVES THEN DYeæ-DYs: SOUND 1, 100, % 


180 IF INEEYSE="" THEN 150 
190 KEM 

200 RENM Retour 

HiO REM XXXXXX 

280 INE O,IsINE 1,4 

Fr Î 





és END 


VARIABLES 


X,Y position horizontale et verticale de la balle 
DX sens de déplacement horizontal 
DY sens de déplacement vertical 


COMMENTAIRES 


130-140 _ : affichage d’un espace en X,Y et de la balle en X+DX,Y+DY. 

160 : changement de direction de la balle lorsqu'elle atteint l'un 
des bords verticaux. Ainsi si la balle se déplace sur la droite 
DX a la valeur +1 ; quand la balle atteint le bord droit, DX 
prend la valeur —1, et la balle se déplacera alors sur la 


gauche. 


170 :test de changement de direction verticale. 


SOLUTION DES EXERCICES 





EXERCICE 2.1 


PROGRAMME 





10 DIM V(10) 
20 REM 
EM CHOIX DES VALEURS 







fæei TO 10 

de. “RINT VALEUR Ms Is 
70 INFLIT VTT) 

Eu NEXT I 








M POSITIFS OÙ NULS 

110 F0 

120 FOR Jel TO 10 

VII)He0 THEN FaF+i 
il 








AFFICHAGE 
1={t. FO. 19 
VCL) 


VALELIRE " 
OU) NULLES 2 "sr 


10 PRINT PNCMRRE DE 
HO FRINT "FOSITIVES 
30 END 





VARIABLES 


| compteur de boucle 
P nombre de valeurs positives 
V(10) tableau des 10 valeurs 


COMMENTAIRES 


10 : dimensionnement du tableau. 

50-80 : boucle d'entrée des valeurs : le numéro de chaque valeur 
est affiché par l'instruction PRINT de la ligne 60 car il est 
impossible de faire afficher par l'instruction INPUT un 
message comprenant la Valeur de I. 
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EXERCICES EN BASIC POUR AMSTRAD 


110 :initialisation du compteur de valeurs positives. 

130 : si la lème valeur est positive ou nulle, P est incrémenté. 
170-190 :les dix valeurs sont affichées. 

210-220 : affichage du résultat P. 





EXERCICE 2.2 


PROGRAMME 






0 REM 
HO INPUT MEHIX HT, "sr 
40 INPUT CCODE TV. 4, (és nr BrlB sf Ca HE%) 


MOTS 







E DU TAUX DE T,V, fr, 
FO OIF CTEMAU TE Tes ELSE IF CTé="R" THEN 
ei, é ELSE IF CT#He"C" THEN Tes ELSE 40 













REM CALCUL ET GFFICHAGE 
100 FRINT 

110 FTEP+EXT/ 100 

1£0 FTÆRCUND (FT, 2) 

150 PRINT "PRIX TT EC. 2 "sPT 
140 FRINT: FRINT 

140 END 


VARIABLES 


P prix hors taxe 

PT prix TTC 

T taux de TVA 

CT$ code du taux de TVA 


COMMENTAIRES 


40 : les codes à utiliser sont rappelés dans le texte de l’instruc- 
tion INPUT. 

70 :le taux de TVA est affecté à la variable T. Sa valeur est 
obtenue par test sur la variable d'entrée CT$. 
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SOLUTION DES EXERCICES 


110 : calcul du prix TTC. 
120 : l'arrondi à deux décimales est obtenu par l'instruction 
ROUND. 


Remarque : lorsque l’arrondi n'est nécessaire qu'à l'affichage, il faut 
utiliser l'instruction PRINT USING, qui n'affecte pas la valeur affichée. 
Dans la solution proposée, effacer la ligne 120 et remplacer la ligne 
130 par : 


130 PRINT “PRIX T.T.C.:"; USING “###.##"; PT 





EXERCICE 2.3 


PROGRAMME 





10 CLS 

20 DIM F(10) 

20 REM 

40 REM RENTREE DES DONNEES 
5Q FOR I=i TO 10 

60 PRINT "PRIX HT. "ils 
70 INEUT FCI) 

go NEXT I 

90 FRINT 

100 INFUT "CODE TVA. (Ar 5% Bs18.6% Cr) 

Ms CT 
110 REM 
120 REM RECHERCHE DU TAUX DE T.V.A. 

50 IF CT$="A" THEN T=5,.5 ELSE IF CT$="E" THE 
N T=19,6 ELSE IF CTé="C" THEN T=3% ELSE 100 
140 REM 
150 REM CALCUL 
160 FRINT 
170 FOR I=i TO 10 
190 FCL)=FP CI) 4F CI) XT/100 
190 NEXT I 
200 REM 
210 REM AFFICHAGE AVEC ALIGNEMENT 
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EXERCICES EN BASIC POUR AMSTRAD 





280 FRINT 
280 FOR lei TO 10 
240 PRINT TABCLO) "PRIX "3 USING COR HAFIERS HAE 





VARIABLES 


| compteur de boucle 
T taux TVA 

CT$ code du taux de TVA 
P(10) tableau des prix 


COMMENTAIRES 
20 : dimensionnement du tableau. 
50-80 : boucle d'entrée des valeurs du tableau P. Avant chaque 


demande, le rang de la valeur à entrer est affiché. 

150-190 _ : boucle de calcul des prix TTC. Les prix TTC remplacent les 
prix hors taxe dans le tableau P. 

210-250 : boucle d'affichage. L'instruction PRINT USING affiche les 
2 nombres séparés par un espace ; le premier est cadré 
sur 2 positions (entier compris entre 1 et 10) ; le second 
est cadré sur 5 positions avant la virgule et 2 positions 
après la virgule (il doit être inférieur à 100.000). Il y a ali- 
gnement du point décimal pour les différentes lignes suc- 
cessives. 





EXERCICE 2.4 


PROGRAMME 





1 méthode : 


2 DIM L$(20) 
50 READ N 

4 FOR I=i TON 
“) READ L${I) 
an NEXT I 





10 CLS 
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SOLUTION DES EXERCICES 


{ el TON 
0 FRINT L#€Cr) 
GO NEXT T 
100 FRINT: FRINT 
110 END 
00 DATE 7 
210 DATA AMSTRAD, TABLE, VOTITURE, ARERE, MAISON, C 
HAISE, OISEAU 





2° méthode : 





DIM L$(#o) 
50 FOR Te1i TO 0 
40 REGD L#CT) 
HO IF LECT)Æ"FIN" THEN 70 
6 NEXT TI 





* I=i TON 
90 FHRINT L#{iT) 
100 NEXT IT 

110 FRINTsFRINT 
120 END 


HAISE, GISEAU 
10 DATA FIN 


3° méthode : 


10 CLS 
20 DIM L$(20) 

30 ON ERROR GOTO 200 
40 FOR Ii TO 100 

50 READ L#(I) 

80 NEXT 1 

70 REM 

80 FOR I=i TO N 

90 PRINT L#(I) 

190 NEXT I 

110 PRINT: PRINT 

120 END 
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EXERCICES EN BASIC POUR AMSTRAD 


200 RENM TRAITEMENT EN CAS D'ERREUR 

210 Neï-1 

220 RESUME 40 

00 DATA AMSTRAD, TABLE, VOITURE, ARBRE, MAISON, C 
HAISE, OISEAU 


VARIABLES 


| compteur 
N nombre de mots enregistrés sous forme de DATA 
L$(20) tableau des mots 


COMMENTAIRES 
Les trois méthodes donnent des résultats similaires. 


Dans la première méthode le nombre d'éléments à lire est passé par 
l'intermédiaire de l'instruction DATA en ligne 500. 


Dans la deuxième méthode, la fin des données à lire est indiquée par 
le mot réservé FIN. La ligne 70 calcule le nombre de mots de la liste 
enregistrée sous forme de DATA et l’affecte à la Variable N. 


La troisième méthode ne nécessite ni de connaître le nombre d'élé- 
ments de la liste des données, ni de réserver un mot pour en indiquer 
la fin. C'est l'erreur provoquée par le manque de données à lire, lors 
de l'exécution de l'instruction READ, qui est utilisée pour sortir de la 
boucle de lecture. Cette méthode est à utiliser avec précaution car 
elle nécessite en principe un test sur la cause de l'erreur. 





EXERCICE 2.5 







PROGRAMME 





10 CLS 
20 DIM N$(20),F# (20) 

EM 

REM LECTURE DES DONNEES 





CS 
WIR] 





READ NN 
60 FOR Tel TO N 
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SOLUTION DES EXERCICES 


70 READ N#(I),.FS (CL) 

80 NEXT I 

70 REM 

100 INPUT "NOM a chercher MINS 

110 INPUT UPRENONM M3FS# 

120 FRINT 

150 KREM 

140 REM RECHERCHE 

150 FOR Isi TON 

160 IF NéeNS CT) AND Pap# CT) THEN FRINT F#s" 
MaNgi" west dans Le fichieger!"s GOT 190 

170 NEXT I 

180 PRINT Fi" "SNS" n'est pas dans 1e fichi 
er" 

190 FKINT 

200 END 

00 DATA 

210 DAT MARTIN, ALBERT, FERRIN, ADELAIDE 

ue0 DATA BARON, JEAN, DURAND, GEORGES 

S30 DATA MARTEAL, JACQUES 


VARIABLES 

| compteur 

N nombre de personnes 

N$ nom de la personne à chercher 

P$ prénom de la personne à chercher 


N$(20) tableau des noms 
P$(20) tableau des prénoms 


COMMENTAIRES 

60-80 : lecture des noms et prénoms enregistrés sous forme d'une 
liste DATA. 

160 : si les nom et prénom sont ceux de la personne cherchée, 


le programme affiche un message, puis s'arrête. Sinon, la 
personne suivante dans la liste est testée. 

180 : si toutes les personnes ont été testées et qu'aucune n'est 
celle demandée, le programme l'affiche. 


Remarque : N$ et N$(1) sont deux variables distinctes, la première est 
la variable alphanumérique N$, la seconde est le lième élément du 
tableau alphanumérique N$. 
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EXERCICES EN BASIC POUR AMSTRAD 





EXERCICE 2.6 


PROGRAMME 





Solution 1 : 





AN READ 
Bi) REM 
40 BEM entree du nom et Cu ruUMmErts 


70 INPUT "NOM OÙ NUMERO & RECHERCHER ÉTAPE 
FIN FOUR TER) "sRS& 

QG IF R#$e"FIN" THEN END 

GO ReLEN CFR#) 

100 FREM 

110 REM recherche 

F0 


















MT DS ÉNUMERCES, 1 
INOME AU N 


THEN PRINT B&;" m'est pas dans L& 


DATE 
DATA 
DraTÉ 
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SOLUTION DES EXERCICES 


Solution 2 : 





#4 HEAD N 

m0 KREM 

40 REM entree du mom &et du numero 

70 INPUT NOM OUI NUMERO À RECHERCHER (TAFEZ 
FIN FOUR  ARRETER) ":R# 

GO IF R#&="'FIN" THEN END 

GO ReLEN(R#) 

190 KREM 

110 REM recherche 

120 Feû 

150 FOR Te1i TON 

140 READ NOMME, PRENOPTE, NUMERCOIE 

150 ZONE 10 

LÉO IF RS SMIDS (NOMME, LR AND R#2 MID (NLIMEFR( 
$,14R) THEN 190 

170 Fri 

180 FARINT NOMS, FRENOMS, NUMERO 

190 NEXT I 

O0 IF Fen THEN PRINT R#i" m'est pas dans la 
liste” 

210 RENM 

RESTORE : FRINT 

GOTO FO 

DATES é 

DATES MARTIN, À 
DSTA FERRIN, 
DATA DURAND, GECFR 
DATE MARTIN, JEfN, 
3 DATA MARTEALE JEAN, HAE GE 

360 DATS MOCRE, RICE, 19 1 714 755 0 04 


VARIABLES 
















compteur 

nombre de personnes dans le fichier 

nombre de caractères dans R$ 

drapeau (flag) : égal à O0 si la personne cherchée n'est 
pas dans le fichier et à 1 dans le cas contraire 


DZ — 
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R$ nom ou numéro à rechercher 

NOMS nom de la lème personne de la liste 

PRENOMS$ prénom de la lème personne de la liste 

NUMERO$ numéro de téléphone de la lème personne 

COMMENTAIRES 

Solution 1 : 

80 : le programme bouclant en 200 (GOTO 30) est interrompu 
lorsque la réponse FIN est donnée à la ligne 80. 

120 : mise à zéro de F en début de programme. 

150 : si le nom ou le numéro de téléphone correspondent, la 
personne est affichée et le drapeau F est mis à 1. La re- 
cherche continue néanmoins car plusieurs personnes 
peuvent avoir le même nom ou le même numéro de télé- 
phone. 

170 : si F contient 0, cela indique qu'aucune personne du fichier 
n'est celle demandée. 

190 : l'instruction RESTORE permet de relire les données en 


DATA à partir du début (y compris le nombre de per- 
sonnes). 


Remarque : la comparaison s'effectue entre la chaîne entrée (R$), de 
longueur R et les R premiers caractères du nom ou du numéro. Ainsi, 
il est possible de faire afficher la liste des personnes dont le nom 
commence par “M” en tapant uniquement cette lettre lors de la de- 
mande du nom ou du numéro {ligne 70). 


Solution 2 : 


150 


180 


: dans cette solution, une facilité d'affichage est obtenue 


par l'instruction ZONE qui définit à l'écran des zones d'af- 
fichage de 10 caractères. 


: l'affichage sur une même ligne d'écran des 3 variables 


NOM$, PRENOM$, NUMEROS se fait dans chacune des 
zones. Si le nombre de caractères excède la longueur de 
la zone, son affichage s'étend à la zone suivante. 


SOLUTION DES EXERCICES 





EXERCICE 2.7 


PROGRAMME 





10 DIM N#€1,70) 

BU CLS 

FO INPUT CCOMRIEN DE PERSONNES (DE 1 A 20) "s 

N 

40 IF N£li OK NEO THEN #0 

#O FRINT 

60 REM 

70 RENM ENTREE DES DONNEES 

80 FOR Iz1 TON 

GO FRINT "FERSONNE "Tyran" 

100 INPUT NOM P,N# (CO, I) 

110 INPUT "PRENOM NE C1, TI) 

120 FRINT 

150 NEXT I 

140 REM 

150 REM RECHERCHE 

160 Mel 

170 FOR Ize1l TO N 

180 IF NECO, TDeNSCO,M) AND NS C1, I) ENS C1, M) TH 

EN M=TI 

190 IF NBCO, I)ENSCO. M) THEN MT 

NEXT IT 

REM 

REM AFFICHAGE 

FRINT 

FRINT ULS PREMIERE  FERSONNE FAR ORDRE 
ALPFHBABETIQUE EST CELLE D'INDICE"sMins" 

DAS PRINT: PRINT TAR CLEO NS CL MD" ENS CO, M) 

250 FRINT 

280 END 





VARIABLES 


| compteur 
N nombre de personnes 
M indice de la première personne dans l'ordre alphabétique 
N$(1,20) tableau à deux dimensions des noms et prénoms 
N$(0,1),...,N$(0,20) : noms 
N$(1,1),...,N$(1,20) : prénoms 
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COMMENTAIRES 
90 : le numéro de la personne à entrer est affiché. 
180 : si les noms sont identiques, l’ordre des prénoms est alors 


pris en compte. 


Remarque : un tableau à deux indices est utilisé. Le premier indice 
indique s'il s'agit d'un nom (0) ou d’un prénom (1). Le deuxième in- 
dice indique le rang dans la liste (1 à 20). 


0 1 
1 N$(0,1) nom 1 N$(1,1) prénom 1 
2 N$(0,2) nom 2 N$(1,2) prénom 2 
3 e e 
4 e e 
e e e 
20 e e 


Il est possible de regrouper les tests des lignes 180 et 190 en un seul : 
180 IF N$(0,1)<N$(0,M) OR (N$(0,1) = N$(0,M) AND N$(1,1)<N$(1,M)) 
THENM =. 





EXERCICE 2.8 


PROGRAMME 





1" méthode : 


DIM TAISC 





10 





110 REM FLUS GRAND DU TABRLEAU 
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* Tel TO NI 
TOI) ET EPD THEN MaT 






LC 





BFFICHE 
Ii TO NE 
END 
DATA 
DATA 





n : 
PAR] 1) 






2 méthode : 
19 DIM 
& LE 


[TE 









RECHE 





160 IF TACI) ETACPO THEN MET 
160 NEXT TI 





= TA M) 
IF MENL THEN FOR Lehri 








IF ONISO THEN 120 





LD 


a Os Lin LOÛND sa a ee 


IE DE L'ELEMENT 
LUS GRAND DU TARLER 


HANGE DES ELEMENTS 


SOLUTION DES EXERCICES 


SPRINT TRITI SSNEXT IT 





LE 


Mis TACTILE TÉ CT 
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RE M 

REM AFFICHAGE 

FOR Lei TO NO:FRINT TR(I),:NEXT I 
FRINT 








END 
DATA 1% 
DATA 3,-10,15,1000,-1,5,-32,0,15,12.26,58 
VARIABLES 
| compteur 
N1 nombre d'éléments du premier tableau 
N2 nombre d'éléments du second tableau 
M indice de l'élément le plus grand du premier tableau 


TA(50) premier tableau : nombres à classer 
TB(50) second tableau : nombres classés 


COMMENTAIRES 

Solution 1 : 

30-60 : lecture des données. 

120 :incrémentation de l'indice du second tableau. 

130-160: recherche de l'élément le plus grand du premier tableau. 

190 : insertion de cet élément dans le second tableau. 

200 : mise à (—-1) de l'emplacement occupé dans le tableau 1, 
par l'élément rangé dans le tableau 2. 

210 :test de fin. 

Solution 2 : 

140-160: recherche du plus grand élément du tableau TA. 

190 : rangement dans le tableau TB. 

200 : remontée d'une position des éléments de TA d'indice su- 


périeur à M+1 sauf si le plus grand élément se trouvait en 
queue de TA auquel cas le décalage est inutile. 


SOLUTION DES EXERCICES 





EXERCICE 2.9 


PROGRAMME 





10 KEM 

20 DIM NEC1S) , HE) 
20 KREM 

40 REM LECTURE 
60 FOR Iz1i T0 9 
PE {I 





DONNE 













MENT PAF ORDRE CROTE 


Jæei TO 9 

Lo IF HET) HET) THEN FeFæ+l 
pe à :] 

")æT 

NEXT I 
















FALNT STETAG 
FRINT " 








FOR lei TO 9 


PRINT OU OUNE CUT) TAR CES LS INE CA, HA HA 









ARE, FRANCE 
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VARIABLES 
LJ compteurs 
P indice 


N$ tableau des pays 

H tableau des populations 

Z tableau des indices de N$, donnant les pays par population crois- 
sante 


COMMENTAIRES 


40-100 
120-180 


210, 230 


: lecture des éléments de N$ et de H par l'instruction READ 
d'une liste donnée en DATA. 

: mise en ordre croissant des indices de N${1). Par exemple, 
puisque N$(6) = “ITALIE” et que l'Italie est le 8ème dans 
l'ordre croissant des populations de la liste proposée, Z(8) 
prend la valeur 6. Le lème élément de Z est égal au numéro 
du pays qui arrive en lème position par population crois- 
sante. 

: STRINGS$(40, “-") fabrique une chaîne de tirets pour le sou- 
lignement. 
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EXERCICE 2.10 


PROGRAMME 


(HS DLIAL PS, ZT) 
DONNEES 


DU) MENU ET CHOIX 


100 REM CHOIX s ARRETER OÙ) CONTINUER 


110 INPUT "Voulez-vot 


Let TE 


120 END 





= continuer COUT /NOND ME ÉS 
BEC ONONM THEN 40 


140 REM SOUS-FROGRAMME DE LECTURE 


SOLUTION DES EXERCICES 


a LE (1) 
C}Fe EL TO 11 
READ NE {T) 
TI 
Je TO OT 
Len TO 41 
DT, di 






















RS 


se) TE OA 
H)eDCT, 0) K1000/D6CI, 1) 


PROGRAMME D SFFICHAGE DL MENU 


ANTES 
HISSANTES" 
£ INTER" 
vo TRE CHOIX 5 "if 
THEN EA0 





CF 





PRINT 

INPUT "AQUEL 

IF JO OR d 

RETURN 

REM SOUS-PROGRAMME DE CLASSEMENT 
dt I=0 TO 11 











29 11 
4) )éeDiE,d) THEN 420 
410 4 
420 NEXT - 

450 Z{F)= 

440 NEXT 

450 RETURN 

260 REM SOUS-PROGRAMME D' AFFICHAGE 
470 CLS 

490 PRINT STRINGS#(40," 0") 

490 FRINT " PAYS"TAR(EO) CS (J) 

O0 PRINT STRINGS (40, 0") 
510 FOR I=O TO 11 

20 IF Jel THEN FORMÉ= "AH" 
MO PRINT " MNE(CZCI))TAR(I9), 
U 

#40 NEXT I 

SO PRINT STRINGS (40,0 0) 





LE 
ECT) 





137 


EXERCICES EN BASIC POUR AMSTRAD 







FA POFULATION (millions), SUPFERFICIE 41000 Hem 
DENSITE (hab, km) 
DATA ALLEMAGNE, BELGIQUE, DANEMARE, ESPAGNE, FRA 


DATE € BLONDE, ITALIE, LUXEMEGURG 

DATE , F'CIF TÜGAL , ROY *AUME-UNT 

DATA 61.496,9.809,5, 07 - .971,52,915,9.165 
DATA 3. 295,,.35 : G . 44 se 928 


niet 














DATA TAG, TI, A4, SOS, 547, LE, 70, HO a a Ada 
VARIABLES 
N$ tableau des noms de pays 
C$ tableau des critères 
D tableau de valeurs numériques à deux dimensions 
Z tableau d'indices 
A$ réponse (OUI/NON) 
LJ,K compteurs 
FORMS format de l'instruction USING 
P indice de l'élément classé 
COMMENTAIRES 
150 : lecture du tableau C$ : POPULATION, SUPERFICIE, DEN- 
SITE. 


160-180 : lecture du tableau N$ (Pays). 

190-230 : lecture du tableau D. 
1) D(1,0) est la valeur de la population du pays de rang. 
2) D(I,1) est la valeur de la superficie du pays de rang. 

240-260 : calcul de D(1,2), qui est la valeur de la densité du pays de 
rang |. 

360-440  : sous-programme de classement par ordre croissant pour 
le critère |. 

460-560  : sous-programme d'affichage. 

520 : on note que si J=1 (choix du critère de superficie), l'affi- 
chage se fait sur 3 chiffres (FORM$="##%#"), sinon l'affi- 


chage se fait sur 3 chiffres avant et 3 chiffres après la virgule 
(FORM$S= "FFF AAA"), 
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SOLUTION DES EXERCICES 





EXERCICE 2.11 


PROGRAMME 







DES DONNEES 


50 INEUT "NOMBRE DE FERSONN 
D IF NS1 OR NY20 THEN 0 
70 FOR Isi TO N 

0 FRINT 

90 PRINT "PERSONNE "sg" os os 
100 FRINT TAEB(16): 

110 INEUT "NOM... "NE CO, I) 
120 FRINT TAB(146): 

1350 INPUT "PRENOM... "NS C1, I) 
140 FRINT 

150 NEXT I 

140 REM 

170 REM CLASSEMENT 

190 Fæl 

190 MP 

200 FOR IeF TON 

210 IF NS(O,IDDENSIO, M) OR (NS(O,I1)=N#(0,M) AND N 
SL,IIENEI,MID THEN M=l 

220 NEXT I 

230 REM 

240 N$eNS CO, F) 3 PFeNt (1, F) 

10 NS CO, FD NE CO, M) 2 NS C1, FD ENS C1, M) 

60 NE (0, M) eN$: NE CLP EPS 

270 FeF+l 

200 IF F£N THEN 190 

290 REM 

300 REM AFFICHAGE 

510 FOR Iæi TON 

» PRINT NS (0, ID NS C1, D) 

» NEXT I 

540 END 





DE 1 À #0) 3 "NM 









ps 
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EXERCICES EN BASIC POUR AMSTRAD 


VARIABLES 

| compteur 

N nombre de personnes 

P indice à partir duquel les personnes doivent être classées 
M indice de la première personne par ordre alphabétique 


NS$,P$ variables 

N$(1,20) tableau des noms et prénoms 
N$(0,1),...,N$(0,20) - noms 
N$(1,1),...,N$(1,20) - prénoms 


COMMENTAIRES 


180 :initialisation de P à 1. 

190-220 : recherche du rang M de la personne (nom et prénom) la 
première par ordre alphabétique, parmi celle d'indice su- 
périeur ou égal à P. 

270 : P est incrémenté. 

240-260 : permutation des éléments (nom et prénom) de la per- 
sonne de rang P avec ceux de celle de rang M. 


Remarque : pour permuter deux variables, par exemple N1 et N2, il 
faut utiliser une troisième variable, par exemple À, et exécuter les 
opérations suivantes : 


1) A = N1 ; recopier N1 dans A 
2) N1 = N2 ; recopier N2 dans N1 
3) N2 = A ; recopier À dans N2 





EXERCICE 2.12 
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PROGRAMME 


10 DIM N#(1,20) 

20 REM 

F0 REM ENTREE DE LA LISTE DES FERGONNES 

49 READ N 

SO FOR Iei TO N:READ N#(0, I), NSC1SIDENEXT I 
80 REM 

70 REM ENTREE DE LA PERSONNE & AJOUTER 


SOLUTION DES EXERCICES 


80 CLS 
90 PRINT "(TAPEZ FIN FOUR ARRETER)" 
100 INPUT "NOM : "NS 
110 N#=UPPERS (N#) 
120 IF N#="FIN" OR N:20 THEN END 
130 INPUT "PRENOM : ",P# 
140 P#=UPFERS (F4) 
150 REM 
140 REM RECHERCHE 
170 FOR I=1 TON 
190 IF NHENS (CO, 1) DR (NS=NH(O, I) AND FSENS C1, I) 
THEN 250 
190 NEXT I 
200 REM 
210 REM AJOUT À LA FIN DE LA LISTE 
220 NS (O,N+L)=NS: NS C1, N+1)=PS 
D GOTO 300 
REM 
REM DECALAGE ET AJOUT 
FOR JeN TO 1 STEF -1 
NS (O0, J+ 1) NS (0, JDE NE CL, J+1)=N#$(1,J) 
280 NEXT. J 
290 NF (0, DEN$:NS C1, DeP# 
300 NeN+1 
REM 
REM AFFICHAGE 
CLS 
FOR I=1 TO N 
PFCINT NS (0, 1), NS (1, D) 
NEXT 1 
PRINT: PRINT 
GOTO 90 
DATA 5 
DATA ALRIC, JEAN, DURAND, GEC 
410 DATA JACQUES, FERRIN, ADELE 










MARTEAÆL 
DE, FEREIN, FULL 





VARIABLES 


l,J compteurs 
N nombre de personnes 
NS,P$ nom et prénom de la personne à insérer 
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EXERCICES EN BASIC POUR AMSTRAD 


N$(1,20) tableau des noms et prénoms 
N$(0,1),...,N$(0,20) - noms 
N$(1,1),..,N$(1,20) - prénoms 


COMMENTAIRES 


120 : l’utilisateur peut insérer plusieurs personnes (le program- 
me boucle en 380) et doit taper FIN pour arrêter. Si le ta- 
bleau contient 20 personnes, il est impossible d'en insérer 
une autre. 

110,140 : UPPER$ transforme une chaîne de caractères en lettres 
majuscules ; les lettres déjà en majuscules sont conser- 
vées. 

170-190 : si la position d'insertion dans le tableau n'est pas la der- 
nière, alors le programme continue en 250 et | contient 
cette position. Si c'est la dernière, alors la boucle se ter- 
mine et le programme continue en 210. 

300 : ne pas oublier d'incrémenter N puisque le tableau contient 
une personne de plus. 





EXERCICE 2.13 


PROGRAMME 






ORESOLUTION DE L'EGUATION DU SECOND DEG 





TAB CIO) VA XE + HO X + Co 0" 


40 FRINT 
70 INEUT CA = "A 

90 INPUT "Ba ME 

30 INFUT °C æ MC 
100 DELTASRTI-A4XAXC 
119 IF DELTA=O THEN © 





180 IF DELTASO THEN 340 
1H0 REM 

149 REM DEUX RACINES REELLES DISTINCTES 
150 FREM 
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SOLUTION DES EXERCICES 


FRINT 

Aie i-E-SOR DELTA) ) 2/8 
Re (A+ SCOR {DELT 6) ). 
FRINT "Cette equation a deux racines reelles 
digtinces" 

PETNT 

FARINT TARCIEDUXA = Max 

FRINT 

FAINT TARCAEO ME ee Max 

END 

REM 

BEM UNE RACINE REELLE DOUBLE 

REM 

FRINT 

Xp 2, 

FRITNT "Cette equation a une racine double" 
FRINT 

FAINT TARIIS)D OR 2 Max 

END 

RE M 

REM FAS DE RACINES REÉELLES 

RE M 

FARINT 

FRINT M'Cette equation à deux racines Compien 





FFINT 
END 


VARIABLES 


X 
X1,X2 
A,B,C 


racine double 
racines distinctes 
coefficients 


DELTA  discriminant 


COMMENTAIRES 


100 


: calcul du discriminant. 


170-180 _ : SOR(DELTA) donne la racine carrée de DELTA. 


240 


: si le discriminant est nul, on poursuit à la ligne 250. 
Si le discriminant est négatif, on poursuit à la ligne 340. 
Si le discriminant est positif, on continue. 
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EXERCICES EN BASIC POUR AMSTRAD 





EXERCICE 2.14 


PROGRAMME 
















Entrée deg valeurs 


XOXONONON HONOR AAC OK ACHCK EN X 


INT SPC (O6) "CALCUL DE FOURCENTAGE" 
CINTS FRINT 

FL "Hombre de valeurs (1 a 0) 4 MN 
# [NT ND 

NET OR NEO THEN 40 

IR Tæi TO N 

ÉECENT "Valeur férbires © et 1600) MxTs 
170 INFLIT M os MSTCI) 

190 IF T(Toso OK TT) el 000 THEN 170 





Cal cul 
XCHCNCCNCK 








NEXT T 
FOR I&i TON 


NEXT IT 

REM 

REN Affichage 

FREM CR ONCHK ACUOUK 

CLS 

FATNT SPC (C4) POALCUL DE FOURCENTAGE" 
FRINT: FRINT 

FÉINT ETOILES 

FARTNT TAR 6) "Val eur e"TAE C1 6) "Fourcent." 
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SOLUTION DES EXERCICES 


240 FRINT ETOILES 

290 FOR Ie1 TON 

400 FORMS: UAH. HAU+SPACES (C4) CHER, HO L" 
410 FRINT TARBES) LISING FORMS#:T(I) FCI) 
#20 NEXT I 

AO FRINT ETOILES 

440 FATNT: FRINT 

450 END 

VARIABLES 

ETOILES chaîne de 5 espaces et de 19 étoiles servant à souligner 
| compteur 

N nombre de valeurs 

T tableau des valeurs 

P tableau des pourcentages 


somme 


S 
FORMS format d'affichage de l'instruction PRINT USING 


COMMENTAIRES 
140-190 : entrée des N valeurs du tableau T. Ces valeurs doivent être 


230 


comprises entre 0 (inclus) et 1000 (exclu). 
: S est tout d'abord mis à zéro. 


240-260  : pour calculer la somme des N valeurs du tableau T, il suffit 


280 
410 


d'incrémenter le compteur | depuis 1 jusqu'à N et à chaque 
passage d'augmenter S de la valeur TI). 

: le pourcentage P(l) est donné par : 100 x T{1)/S. 

: les valeurs et leurs pourcentages sont affichés en utilisant 
le format d'affichage, qui est décrit à la ligne 400. 





EXERCICE 2.15 


PROGRAMME 





10 REM 

20 REM Troncature d'un nombre à 
30 FEM conservation d'un chiffre 
40 RENM significatif Dar  EKXCES 
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EXERCICES EN BASIC POUR AMSTRAD 


HO REM  XOXOXOXOOAOK HONCK KCHOKKHKOR AC AOH AH E 
60 CLS 

7O INEUT "Entrez un nombre positif 5 "NE 
80 IF NH£&O THEN 70 

90 LNEEINT (LOGIC CNE) ) 

100 MNB&NEX € 10--1LLNEN 

110 TRCEe CINT CMNEO #10) X CL OLNEN 
120 FRINT 

150 FRINT "Nombre 3 "NE 

140 FRINT "V,trondg. 3 "4 KO 

150 FRINT 

160 END 






VARIABLES 


NB nombre entré 

LNB partie entière du logarithme de NB 

MNB recadrage de NB entre 1 (inclus) et 10 (exclu) 

TRO  toncature de NB par excès et un chiffre significatif 


COMMENTAIRES 


90 : (LNB+1) est égal au nombre de chiffres avant la virgule si 
NB est supérieur à 1 et au nombre de zéros (précédé du 
signe —) après la virgule si NB est inférieur à 1. 


100 : MNB contient les mêmes chiffres que NB mais cadré entre 
let 10. 
110 : détermination du nombre le plus proche par excès de N 


avec un seul chiffre significatif. 





EXERCICE 2.16 


PROGRAMME 






10 FEM 
20 REM CALCUL DE VOLUME ET D'AIRE 
HO REM KO ACACHK HOKCACHOHCK HO CACNE NE ACNC HONOR 
40 DEF FN SCUCX) =ROLIND COX XX, 2) 






20 EN VOLUCX) ROUND CXKXXMX, 5) 
60 DEF FN SSP ER) =ROUND C4XFTXRXR, 2) 
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SOLUTION DES EXERCICES 


pes 


F0 DEF FN VSF OX) AROUND C4XFI XX CHXKX 75 
80 DEF FN SCYIH,E UD CEXKF] l 
90 DEF FN VCY CHER) =ROUND CP EXRKRYH, 2) 
100 FORME: COLUISPFEY" 

110 KREM 

120 REM Choigigsser une forme 

LEO REP XX AK XX KA NON HAE KR KONCX 

LD CLS 

10 FÉINT Choisissez une forme x " 
140 
170 \ TAB CIO) "CU pour CUBE" 

10 PRINT TÉHCIO)SF pour SFHERE" 
190 FRINT TAB CIO) "CY pour CYLINDRE" 
200 FRINT 

#10 INPUT M'Ouel egt votre choix : 
SO IF LEN(CREPF#) 32 OK INSTR(FORME,E 
FINT SPC (10) ERREUR UD) MACHRS (7) 2€ 
220 ON INSTRIFORMS, REF#) /7 GOSLE 
su 



















)=O THEN F 





590 








Sous-programme du cube 
M OK OHONCMOK HN AOC AOC HN AOKX XX 





di F 
_ INPUT MGuel get le cote du cube : °,COT 
= INT "Sa gurface est s "3:FN SCU(COT) 





PRINT Son volume est s "SEEN VOCU(COT) 
RETURN 

REM 

HO REM Sous-programme de la enhere 

540 REMAKE OHONOKOHOKOKOMONOKOKOKOX OK COX KO XXE XX 

260 INPUT MGuel est le ravon de la sphere 2 MK 
LA 

F6 PRINT "Sa surface est » "sFN SSF (Ré) 

370 FRINT "éon volume eat s "MsEN VSF RAY) 

260 RETURN 

590 REM 

400 REM Sous-progremme du cylindre 

410 REM  XACACKACKOACK KM OK AK OACKCE HN HCX OK X 

4230 INPUT "Ruelle est ga hauteur 2 "HT 

450 INPUT L get le ravon de &ga base s M RHAY 
#io PRINT MS surface est 5 "IPN SCY(HT, RAY) 
40 FHINT Son volume est s MEN VCY (HT, RAY) 
460 RETUER 
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EXERCICES EN BASIC POUR AMSTRAD 


VARIABLES 


FORMS variable alphanumérique égale à “CUSPCY”" 
REP$ réponse 
RAY rayon de la sphère ou du cylindre 


HT hauteur du cylindre 

COT côté du cube 

COMMENTAIRES 

40-90 : les 6 fonctions correspondant au volume et à la surface de 


la sphère, du cylindre et du cube sont définies. Pour ob- 
tenir par exemple, le volume d'une sphère de rayon 3,4 il 
faut exécuter l'instruction FN VSP(3.4) ; pour obtenir la 
surface d’un cylindre de rayon 3 et de hauteur 2,3, il faut 
exécuter FN SCY(3,2.3). Les résultats sont arrondis à 3 
chiffres après la virgule. 
230 : INSTR(FORMS$,REP$)/2 prend la valeur : 

1, si REP$="CU" et le programme reprend à la ligne 250 ; 
2, si REP$-"SP" et le programme reprend à la ligne 320 ; 
3, si REP$="CY" et le programme reprend à la ligne 390 ; 
sinon FIN. 





EXERCICE 3.1 


PROGRAMME 





Le COLE 

SO LINE INPUT PTAPEZ UNE LIGNE Prés 

50 Tel 

40 IF MIDSCAES, TT, Lot THEN RSeLEFTS Ce, T1 + 
TC 40 

LelLEN (és) THEN 45 





MIDE (AS, T+loii 
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SOLUTION DES EXERCICES 


VARIABLES 


| compteur 
A$ ligne de texte à traiter 


COMMENTAIRES 


40 :tous les caractères de la chaîne sont comparés un par un 
à l'espace ; si le lème caractère est un espace, il est sup- 
primé de la chaîne et le programme reprend en 40, sinon 
l'est incrémenté. Le processus se poursuit jusqu'à ce que 
| soit supérieur à la longueur de la chaîne Af$. 


Remarque : il serait possible d'utiliser une boucle FOR-NEXT en ligne 
30 sous la forme : 

30 FOR 1=1 TO LEN(AS) 

50 NEXT | 


Toutefois cette méthode présente un inconvénient puisque LEN(AS$) 
est évalué à l'entrée dans la boucle et ne tient donc pas compte de la 
suppression de caractères “espace” qui réduit ensuite cette lon- 
gueur. 





EXERCICE 3.2 





PROGRAMME 





JT CTAPFEZ UN TEXTE 3 "AS 
#22 THEN 70 

dd Eh E SE) 
PAMIDELES, L+10 





30 END 
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EXERCICES EN BASIC POUR AMSTRAD 


VARIABLES 


compteur 
A$ chaîne de caractères à traiter 


COMMENTAIRES 

30 :il est impossible d'insérer des espaces si la longueur de la 
chaîne est 1 ou 0. 

40 : LEN(AS) est évalué comme la longueur initiale de Af$. 


Remarque : les espaces sont ajoutés à partir de la fin de la chaîne. 
Pour commencer par le début, il faut écrire : 


40 FOR 1=1 TO LEN(A$)+2-2 STEP 2 
50 
60 NEXT I 





EXERCICE 3.3 


PROGRAMME 





io CLS 
30 LINE INPUT "TAPEZ UN MOT 3 "357$ 
30 PRINT 
40 PRINT 
SO PRINT F# 
60 FSeMIDE (P#, 2) 

= LENCE#):0 THEN 50 





70 


a END 





VARIABLE 

P$ chaîne à traiter 

COMMENTAIRES 

60 : MIDS$(P$,2) contient tous les caractères de P$ sauf le pre- 
mier. 

70 : s'il reste des caractères dans P$, alors le programme boucle 
en 50. 
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SOLUTION DES EXERCICES 





EXERCICE 3.4 


PROGRAMME 








19 CLS 

#0 LINE INPUT UTAPEZ UN MOT 2 "is L% 
50 FRINT L# 

HO IF LEN(L#H)<E THEN 90 

0 FOR Teil TO LEN(LS#)/# 

60 LS=MIDS (LS, ES, LEN (LS) -2) 

70 FRINT TAR(T+1)3:LS 

90 NEXT TI 

50 END 





VARIABLES 


| compteur 
L$ chaîne de caractères à traiter 


COMMENTAIRES 


60 :le premier et le dernier caractère sont supprimés de la 
chaîne L$. 

70 : l'affichage à la position | + 1 permet de réaliser la tabula- 
tion demandée. 





EXERCICE 3.5 


PROGRAMME 





10 CLS 

20 LINE INPUT CTAPEZ UNE FHRAGE 3 "iF# 

30 REM 

40 FEM DERUT DE LA BOUCLE 

0 GOSUR E00 

40 FÜR Ieil TO LEN(F#) 

70 IF MIDS(PFS, 1, 1)e" "THEN FSeMID# (F8, T+1):G 


OTCO 30 
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EXERCICES EN BASIC POUR AMSTRAD 


50 NEXT T 
90 FRINT 





0 END 


CÉSAUTÉ D'AFFICHAGE 
se" "THEN F$eMIDS (PS8, 2) : GO 


Rs 





VARIABLES 


| compteur 
P$ phrase traitée 


COMMENTAIRES 


70 : si le lème caractère est un “espace”, tous les caractères 
qui le précèdent et lui-même sont supprimés de P$. 

200-230 :sous-programme d'affichage. 

210 : si la nouvelle phrase à afficher débute par un blanc, les 
espaces qu'il contient sont préalablement supprimés. 





EXERCICE 3.6 


PROGRAMME 










ENFUITOULIGNE (Ms SO CAR) 5 "ils 


Leo THEN #0 
RE M 

REM De gauche a drcite 
FREMT CXOXONOHAX AOKOX EE KOKOXOX XCXOX X 
FCR Tel TO 40-L+1 

70) FRINT TAKRCTIL#; 

110 NEXT T 








LC De droite a gauche 
1 <+0 REM XOKCKOKONOK CHOC OK KAX XX X 
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SOLUTION DES EXERCICES 


TO OS STEF +1 
(T)LEÆ;: 





VARIABLES 


| compteur 
L longueur de L$ 
L$ ligne de texte 


COMMENTAIRES 


80-110  :la ligne de texte est affichée successivement, à partir de la 
colonne 1, puis 2,.., puis (40—-L+1). 

150-180  : la ligne est affichée successivement, à partir de la colonne 
(40—L) puis (40—-L—1),.., 2. 





EXERCICE 3.7 


PROGRAMME 





Solution 1 : 










LOCALES 






Cas non 
TAPEZ UNE LIGNE (MAX:ES CAR.) 


ao KEM 

90 M Creation de la ligne 
100 REM KO4X A KOAOUOKOK AAA HOME AOC KOX XX 
110 LéeLé+RTIGHTÉ CAS, 40-15) 
120 CLS 

1:39 REM 


140 REM Defilement 


153 


EXERCICES EN BASIC POUR AMSTRAD 


154 


150 KEM 
160 INK 
170 INK 
180 LOC 
IN 











; FR 
#10 GÜTO 


3 INF 
250 PAPE 
40 END 









XNA X 
FO: PAPER Gi CLS 
16,76 

TE 1,10 

T L$ 


LIGHTE CLS, 59) 4LEFTS (LS, 1) 
180 


La 
K © 


VARIABLES 


compteur 


L$ texte à 


faire défiler 


L longueur de L$ 
A$ ligne de points 


COMMEN 
20 


30 


40 


110 


170 


200 


TAIRES 


: deux appuis successifs sur la touche BREAK font passer à 


la ligne 220 (retour à l'affichage initial : en jaune sur fond 
bleu). 


: lors de l'utilisation d'une encre à 2 couleurs (ligne 170), la 


première couleur s'allume pendant 250 millisecondes 
(1/4 seconde) et la deuxième s'allume pendant 100 milli- 
secondes (1/10 seconde). 


: STRING$ permet de construire une chaîne contenant 40 


points. 


: la ligne est complétée par suffisamment de points pour 


obtenir 40 caractères. 


: l'encre numéro 1 a deux couleurs (6 : rouge, 25 : blanc) 


qui clignotent suivant un rythme défini par l'instruction 
SPEED INK (ligne 30). 


:le premier caractère de la ligne est placé en dernière po- 


sition. 


Solution 2 : 


(LE 
IN BE 










LINE 
5 alt 


ré 
LV 


EBE  GCISLUIE 160 
INE 10, 10 
INPUT "TAPEZ UNE LIGNE (M&X:59 CAR. 0 


SOLUTION DES EXERCICES 


Jo L#éeLg+" ® 

80 LeLEN (L#) 

FQ IF LS59 THEN 40 

80 REM Defilemert 

F0 REP OX ACX K ACIOENX 

F5 IÎINE O0,0:CLS5 

100 INE 1,25, 

119 FÜR Iz40 TO 1 STEF -1 
20 LOCATE 1,19 

150 PRINT MIDS (LS, 41-T) 3; TARCTO  LEFTÉ (LS, 40-7) 

140 NEXT T 

150 GOTC 40 

160 INF 1,24 

170 END 














VARIABLES 


| compteur 
L$ texte à faire défiler 


COMMENTAIRES 


20 : deux appuis successifs sur la touche BREAK font passer à 
la ligne 220 (retour à l'affichage initial : en jaune sur fond 
bleu). 

30 : définition du rythme de clignotement des couleurs de 
l'instruction INK. 

50 : le texte est complété par un espace. Cet espace efface le 
dernier caractère de la dernière ligne affichée. 

130 : lorsque le texte est affiché à partir de la lème colonne, une 
partie de ce texte peut déborder de l'écran. Dans ce cas, la 
partie restante est affichée à partir de la colonne 1. 





EXERCICE 3.8 
PROGRAMME 


19 CLS 
20 PRINT "TAPEZ UNE FHRASE à LA FORME NEGATIV 
EE" 

50 LINE INPUT &$ 
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EXERCICES EN BASIC POUR AMSTRAD 


40 REM 
SO REM DEEUT DE LA BOUCLE DE RECHERCHE 
BOF HON A HON HE HCHHCHENCHEHCAE CHCE CIC 

70 FOR IeLEN(A#) TO 1 STEP -1 

90 IF MIDH(AS,I,4)æ" NE " THEN ABeLEFTS# (A6, I) 
+MIDE CAS, I+4) 
DO IE MID#( 
MID# (AS, Le 
100 1F MIDHIAS, I, 5e" PAS THEN ASSLEFTS (AS, 
1) +MID# 





S)EeN ONE THEN ébeLEFTE CS, LD + 






DeUNE "THEN AHeMIDE (AS, 4) 
UN" THEN AeMIDE (A 





VARIABLES 


| compteur 
A$ chaîne de caractères 


COMMENTAIRES 


70-100  : l'un des mots NE, PAS, N'est comparé à la partie de A$, 
de même longueur. Si une correspondance est trouvée, le 
mot est retiré. 

120 : teste le cas où “PAS” serait en fin de phrase. 

130 : teste le cas où “NE” serait en début de phrase. 

140 : teste le cas où “N” serait en début de phrase. 


Remarque : LEFT$(A$,l) donne les premiers caractères de A$, jus- 
qu'au lème inclus. Cela permet ici de laisser un espace entre les 2 
mots entourant celui à supprimer. 


SOLUTION DES EXERCICES 





EXERCICE 3.9 


PROGRAMME 





Solution 1 : 














ÉECHERCHE  D°'UNE ITE DE LETTRES 
HR AE A OR KK HR EC HO KE ACC MC IOCK HO KE XX 








PAOUELLE EST Lé CLE’"s CS 
IN ÉCE) 

INT 

RECHERCHE 


100 FEAD 86% 

110 ON ERFECR GOT ZOo0 
: IF LENCAS) EC THEN 100 

1 










Tape 1 





Lei TO LEN (CA) - 


AFFICHAGE DES 

LE MK HN AAC AAC CAO CO OK 

NT 

BEO PRINT OLA CLE ? "sC$st © À ETE TRGUVEE"SF 
: "FOIS." 
240 END 


0 DATÉ Lés VOITURESEST, ARRIVER, OUISND LE, THÉ 







DATÉ ETAIT,EN, GARE, LE, BUREAU, DANS, Lé, VOTT 


9 DATÉS SOUS,LE, TOIT, AVAIT, DERCRDE 
90 DATÉ LA,RIVIERE, 4 DEBQRDE, FENDANT, FOUPFE , L 
a NLEET 
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EXERCICES EN BASIC POUR AMSTRAD 


Solution 2 : 


10 FENM 
20 REM RECHERCHE D'UNE SUITE DE LETTRES 
FO REM KO XOKOK OK OKOK OK OKON OH NON OMC HONOR KE RE XXE XX 
4 CLS 
0 INPUT PCOUELLE EST LA CLE'3sCS# 
A CeLEN CC#) 
70 PRINT 
40 KEM RECHERCHE 
GO Ft 
100 RESD A$ 
110 ON ERKROR GOT 210 
120 IF LENCA#)EC. THEN 100 
25 PEN 2 
FOR Ie1i TO LENCAS)-C4+I 
IF MIDSCAS,T,U)EECS THEN 180 
GOÜSUER 00 
FRINT TARCEO-LD) AFS 
Far + 
NEXT OT 
FEN 1 
GOTC 100 
REM 
REM SFFICHAGE DES RESULTATS 
REM  XOXCK AOKOXOROK OK OKONOHOKOKOK AOKCK HO ICKCXCX 
FRINT 
FRINT "LA CLE * "sC$at ® à ETE TROUVEE':F 
: "FOIS." 
230 END 
REM 
REM FASSAGE DE LA CLE EN MAJUSCULE 


EM OXOHOKOK KOKONOAONOKCKOK AO ARE LME NEXEX 











AFHELEFTS(CAFS, 1-1) +LEFTS (C8, C)+MIDS (AF#,C 


RETUFH 
DATA LA, VOITURE,EST, ARRIVEE, GUAND, LE, TRA 


DATA ETAIT,EN, GARE LE, BUREAU, DANS, LA, VOIT 
DSTS GSOUS,LE, TOIT,AVAIT, DERQRDE 


230 DATA LALRIVIERE, 6, DERORDE, FENDANT, TOUTE, L 
A NUIT 
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VARIABLES 


SOLUTION DES EXERCICES 


C$ clé à rechercher 

C longueur de C$ 

A$ mot du texte à étudier 

| compteur 

F nombre de fois où la clé a été trouvée 
AF$ mot à afficher (solution 2) 


COMMENTAIRES 


110 


120 


140 


150 (sol. 1) 
160 (sol. 2) 


300-350 


-si une erreur intervient lors de la lecture de la liste 


DATA, la liste est considérée comme épuisée et le pro- 
gramme se poursuit à la ligne 210. 


: si la longueur de A$ est inférieur à C, alors la clé ne 


peut pas se trouver dans ce mot et l'on passe au mot 
suivant (ligne 100). 


: la clé est comparée à toutes les chaînes de longueur 


C, construites sur A$ à partir de la gauche. 


: affichage d'un mot où la clé se trouve. L'affichage de 


la chaîne de caractères, constituant la clé, commence 
toujours en colonne 20. 


: dans la solution 2, la clé est affichée en lettres majus- 


cules tandis que le reste du mot est affiché en lettres 
minuscules. À la ligne 330, un mot qui contient la clé 
est transformé en lettres minuscules dans AF$, puis 
en ligne 340, la clé est introduite dans AF$. 





EXERCICE 35. 10] 


PROGRAMME 











INPUT MCARACTERES & INS 
INFUT CFOSITION D°INSERTION 5 MF 


UNE CHAINE DE CARACTERES" 


ERER +: "LS 
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EXERCICES EN BASIC POUR AMSTRAD 










EN(CS)+1 THEN 60 
CE, PL) <IS4MIDÉ (CS, F) 


"RESULTAT s ° 
LT 


VARIABLES 


P position d'insertion 
C$ chaîne initiale et finale 
| chaîne à insérer 


COMMENTAIRES 


70 : test de la validité de la position d'insertion. 
80 : insertion. 





EXERCICE 3.11 





PROGRAMME 









ENTREE DU TEXTE 
PR 211122222222. 
Bu? 

mé LE 

89 FRINT 


1 


E Le 


“TAPEZ UN TEXTE (MAX:128 CARACTERES) 


70 PRINT:LINE INEUT LS 

ao IF Lé="" OR LEN(L#)1E8 THEN 60 
SO FRINT 

100 LINE INPUT "Mot 
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SOLUTION DES EXERCICES 





120 REM 

120 REM DEBRUT DE LA RECHE 

140 FER XOOCACE NOK IN OX NON HO NE HONE AC NE XX XC 

150 Leds Fes ReLEN CRE) se MELEN (MS) 

169 KREM 

170 IF MIDSILS, TI FOSSRS THEN ZE0 

180 Fa 

190 FRINT:IF LENILS)-R4MSIEG THEN FEÉINT CHAN 
GEMENT IMPOSSIBLE": GOTO 40 

OO Fa 

EM DOIT-ON REMPLACER 

FRINTs FRINT LEFTS (LL, L-1) 3: 

PEN Ses PRINT K&::2PFEN 1 

FRINT MID (LE, I+Ki 

FRINTs PRINT PUOLLEZ-VOUS REMPLACER (CI ND 

















LÉO ABEINEENVSSIF Gent CI CASE SUN AND el] 
“) THEN  £60 ELSE IF AS="N" THEN #80 

ÉYE + É LD HP AMEDSE (LS, LR s LT 4 
+ F+l THEN 1460 





Fa THEN FRINT Ce mat m'est pas dans 
le texte " 

HO PARINTSs FRINT L# 

ao END 


VARIABLES 


compteur | 

F drapeau (flag) : O si le mot à remplacer n'est pas dans la ligne 
L$ texte 

R$ mot à remplacer 

R longueur de R$ 

M$ mot à substituer 

M longueur de M$ 

A$ touche frappée au clavier 
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EXERCICES EN BASIC POUR AMSTRAD 


COMMENTAIRES 

80 : si la ligne ne contient aucun mot ou contient plus de 128 
caractères, le traitement est impossible. 

150 :initialisation du compteur, du drapeau et des longueurs 
de mots. 

170 : si le mot à remplacer ne se trouve pas à la position |, le 
compteur est incrémenté (ligne 280). 

200 : si le mot à remplacer se trouve à la position |, le drapeau 
est mis à 1, indiquant que le mot existe dans le texte. 

230 :le mot à remplacer est affiché dans la ligne en mode cli- 
gnotant. 

260 :test de la réponse de l'utilisateur. 

330 : si le drapeau est toujours à zéro, cela indique que le mot 


à remplacer n’a pas été trouvé. 





EXERCICE 3.12 





PROGRAMME 


10 DIM E (40) 
20 KREM 

#& LÉ 40)) 
EF DE LA LIGNE DE 
HAE AE AC HE C NE ONE EACH KE CNE EACH 





RINT UTAPESZ UNE LIGNE MAS 


jen on THEN Pé&eLEFTS (FPS, LERN 


de" THEN FéeMIDS (PR, 20 : GOT 





IF LEN£F#) 40 THEN 70 
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SOLUTION DES EXERCICES 





D IF MID#(P#, 1,12" " THEN FLGrO ELSE IF F 
3 THEN NeNtisE(DelsFLGel ELSE F£eLEFTE(FS 





190 Iæl+i 


cmLENÉFS) THEN 1. 
THEN PRINT CFÉES 









DE MOTS" Ss END 





FITNESS CLNT RSI)" "2 + 


M affichage 
AC AE NC AC NC ACXX 
INTs PRINT F# 


VARIABLES 

ESP$ chaîne de 40 blancs 

| compteur 

N nombre d'espaces de P$ 

B nombre d'espaces à ajouter à P$ pour obtenir 40 caractères 


P$ ligne à justifier 
E(40) tableau des positions des espaces contenus initialement dans 


FLG drapeau indiquant qu'un espace contient plusieurs blancs 


COMMENTAIRES 
90 : suppression des espaces éventuels mis en fin de P$. 
100 : suppression des espaces éventuels mis en début de P$. 


130-200 :les positions des fins de mots dans P$ sont rangées par 
ordre croissant, dans le tableau E. Si plusieurs blancs ont 
été mis entre mots, ils sont comprimés en un seul. 

210 : si P$ ne contient aucun espace, il est impossible de justi- 
fier la ligne. 


163 


EXERCICES EN BASIC POUR AMSTRAD 


260-290 :les espaces sont ajoutés à partir de la fin de P$. Ainsi les 
valeurs précédentes de E contiennent les positions réelles 
des fins de mots de P$. 





EXERCICE 3.13 


PROGRAMME 














EZ UNE LIGNE 
LNPUIT LS 













ion de La 





LOLITE 


KAXX 





ion de La chaine 2 6 
A XX AC HA AC AE NCA NC A MC HOKX CE 
I TO LEN(L#) 

INT ÉENDXLER CT #0 0 4 








ENTS FRENT 
PRINT Lés PRINT Lés PRINT ES 
END 


VARIABLES 


Î compteur 
A position aléatoire d'un caractère de T$ 


L$ ligne de texte 
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SOLUTION DES EXERCICES 


I$ ligne inverse 
A$ ligne aléatoire 
T$ variable alphanumérique 


COMMENTAIRES 

150 : la ligne de texte est recopiée dans T$ pour pouvoir être 
manipulée sans perdre l'original. A$ est initialisée. 

170 : INT(RND*LEN(T$))}+1 donne un nombre aléatoire entre 1 


et la longueur de T$, qui est affecté à A. 
180-190 : le Aème caractère de T$ est ajouté à A$ puis supprimé de 


T$. 





EXERCICE 3.14 
PROGRAMME 








LE 


INPUT Nombre de mhre 






LFONEL COR Neo THEN 460 


THEN 





L LESC éd} el, CLSC 
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EXERCICES EN BASIC POUR AMSTRAD 












eS4l (I): NEXT I 





RATE TITI TS 


LE) 


Tente etudie à 
TO NsFERINT T#ILDENEXT TI 


nu 

# mn 

LE) 

LH 3LI) 


JT LISTN(G Der HH° LéT+15) 


VARIABLES 

L,J,K compteurs 

N nombre de phrases 

S nombre total de lettres dans T$ (10) 

LSC code ASCII du caractère testé 

L(26) tableau des pourcentages d'apparition des lettres de l'al- 

phabet 

T$(10) tableau contenant les phrases du texte 

COMMENTAIRES 

120 : le texte entier est mis en lettres majuscules. 

200 : si le caractère testé est une lettre majuscule, son code 
ASCII est compris entre 65 et 90. Dans ce cas l'élément du 
tableau L d'indice égal à (LSC-64) est incrémenté. Par 
exemple : si la lettre est H de code ASCII 72, l'élément 
d'indice 8 du tableau L est incrémenté. 

250 : calcul du nombre total de lettres contenues dans T$. 

270 : calcul arrondi à deux décimales (instruction ROUND) du 
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pourcentage d'apparition de la Jième lettre. 


SOLUTION DES EXERCICES 


330-380 : affichage sur deux colonnes des lettres de l'alphabet, sui- 
vies de leur pourcentage de présence avec alignement sur 
le point décimal. 





EXERCICE 3.15 
PROGRAMME 






INPUT JOUR DE 1 6 31) ,d 

INPUT NUMERE DU MOIS DE 1 A 14) "NM 
INPUT MANNEE sé 

IF JE OR Jési OK Mel 
80 FOR Teil TO MsRESD M#&:NEX 
70 D TRS CD EU PA MB+STERS (A 
90 FRINT: PRINT D8s FAINT 
0 END 

100 DATA JANVIER, FEVRIER 
110 DATA MAT, UIN, GUTLLE 
120 DETS S 
150 DATA DEC 













à MARS, ÉVERTL 
Fa AOUIT 
FEMBRE, OCTORRE, NOVEMBRE 
EMRRE 









| compteur 

J numéro du jour 

M numéro du mois 

A année 

D$ date 

M$ mième mois de l’année 


COMMENTAIRES 


50 : vérification de la validité de la date d'entrée. 
60 : recherche du Mième mois dans la liste de DATA. 
70 : création de la date avec le mois en toutes lettres. 


167 


EXERCICES EN BASIC POUR AMSTRAD 





EXERCICE 3.16 
PROGRAMME 





ONE HO AOOE KR HOHEOHEOHE OK KOR ACC HONOR HONOR AK ACHEHON NC 


ÆMÉRREUR LI 
40 INPUT DATE €EK,s 11 JANVIER 1445) os "DAT 
ES 
HO DHéELIFFERS (DATE#) 
60 
70 E chi jour 
90 REM XXMAMAXEXXXXXXXXX 
GO IF LEFT#(D#,1)="0" THEN D&eMIDS (DS, 2) 
100 FOR Izi TO LEN£{D#) 
IF MIDS#(D#,T, die" "THEN 140 
NET OT 
FRINT MES: GCOT(O 40 
JeVALILEFTS (DS, [—-1)) 
IF J OR J£e0 OK JESINT CO) OF STARS Cd)E TE 
LEFTS£CDS,I-1) THEN FARINT MES: GOTO 40 
REM 
REM Recherche de l'annee 
REM XX OX CE OO ORNE NX XXE 
DBEeMIDS CDS, L+1) 
FOR I=i TO LEN(D#) 
IF MID#(CD#,T, 1)" "THEN 250 
NEXT T 











IF LEFTHCHE, Lo="0U THEN HSeMIDS CES, 5 
A=VAL CEE ) 
IF fée GE CE TNT CE) OR STARS (EE M4Ré T 
FRINT MES:GOTO 40 

RE M 

REM Recherche du mois 

RE KOKOXKOKKOXK KICK CE OR CE X 

ME=LEFTS (D#, T-1) 

REM 

REM Recherche du numero du mois 

REA KO OY HO AO HE CC NE OK KE CAC ACC CC K XX 

RESTORE 
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SOLUTION DES EXERCICES 


FOR Mai TO 1% 

READ 6% 

IF AS=MS THEN 400 

NEXT M 

PRINT MES: GOTOQ 40 

REM 

RENM éffichage du resultat 
FE AK OKCKOKCK AE HCONOKOKK ACC AC KCX 
FAINT 

FRINT TARILO) da térsMst at 
FRINT 

END 

DATA JANVIER, FEVRIER, MARS, GVRTL 
DATE MAT, JUIN, JUILLET, AQUT 
DAT SEPTEMBRE, OCTCBRE 

00 DATA NOVEMERE, DEC 








VARIABLES 


| compteur 

J numéro du jour 

M numéro du mois 

A année 

DATES date 

A$,B$,D$ variables alphanumériques 
ME$ message d'erreur 

M$ mois en lettres 


COMMENTAIRES 


90 : si le numéro du jour commence par un 0, celui-ci n'est pas 
pris en compte. 

110 : recherche du premier espace de D$. 

150 : test de la validité du numéro du jour. 

210 : le 2ème espace dans D$ repère le mois. 

240 : si le numéro de l’année commence par un 0, celui-ci n'est 
pas pris en compte. 

260 :test de la validité du numéro de l’année. 

340-390  : recherche du numéro du mois. 
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EXERCICES EN BASIC POUR AMSTRAD 





EXERCICE 3.17 


PROGRAMME 






Lecture du Géanhieme 
des chiffres 
PE OHCHON NOK XCK ACH HONCHCNOK KA HA X 











Fe 
90 EDR 
100 FOR Je 
119 REAT 
120 
140 
150 CLS 

160 INFUT "ECRIRE UN NOMBRE ENTRE O ET 99999 
"MS 







IF MS OA Me THEN 160 

FE M 

REM Affichage 

EM OKKXEXXXXX 

FECINT s FRINT 

FOR Leo TO SE 

FOR Jei TO M 

DeVisl (MIDS CMS, J, 19) 

FÉINT C#iD, I)" "ss 

NEXT .i 

FRINT 

NEXT I 

END 

REM 

>) RENM Graphigmes des 10 chiffres 

) REM XOACX XX XX AA KO OXOX HRK KE A ERA XX 

0 REM 

; EENM chiffre 0 

Hé DATE OU OXMX MSUX XUSUX KXUSUX KUAUX 
X",UOXXX 












170 





de chiffre 1 
DATE XX Le 


MOUXKXXXX" 
REM 


HTRLR 
440 M Ochiffre 
HE DATÉE 
AUKXXEE" 
#0 REM 
Pi chi tre 
DEu TE OKEX MSUX 









pi 
M chiffre 4 

0 DATÉE ka 
4 , LE] X LL 


REM chiffre 

= DésTÉ UXKMX MSUX 
KUSUXXXX 
ae REM 

>» HEM chiffre é 

SO DATA UM OXEX OU, 
AU OKXX 

REM 

60 HEM chiffre 2 
HU DATE MEXEEMTSUX 

LE] x #1 * #5 

REM 

EM 

DATÉE ” 

a" XEXX " 








x 









chiffre #8 
rer: Der: 





EN chiffre 

DATE UORRE MX 
X!SUOXXX 

ë46 ENT 





VARIABLES 


1, J compteurs 
D chiffre à afficher 


EXX 1 "x 


LE 
1 

LE] 
* 

#1 
* 


, LE %k 


MAX 


CHE 


." XXXX""," 


SOLUTION DES EXERCICES 


CU ROUX 


Lee x 
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EXERCICES EN BASIC POUR AMSTRAD 


M nombre de chiffres à afficher 
M$ nombre à afficher avec les graphismes géants 
C$(9,5) tableau contenant les dessins des chiffres géants 


COMMENTAIRES 


90-120 :lecture des dessins géants. Le premier indice de C$ 
(compris entre 0 et 9) désigne le chiffre à dessiner, le se- 


cond (compris entre 0 et 5) la ligne du dessin. 
230 : l'indice | repère les 6 lignes du graphisme. 
260 :affichage de la lième ligne A 


chiffres. 
280 : passage à la ligne suivante après M affichages. 





EXERCICE 3.18 A 
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0 INPUT "éd 


BeCHES (CMEM) 


ARS) 


PROGRAMME 











M FProgrenmme de DUMF memoire 
EM OKON NON A AOHCOHE ACKC NOK AC AC HEOACH MONCNE OX 
EM 

50 INPUT 'âdresce 










70 FCR [: 








100 CMEI 
110 FKI 


ER 
# 


150 FOIE 7 
140 CMEM 
10 IF CME 





OF CMEMGITES THEN Bet ELSE 


160 FRINT 6: 
170 NEXT 
150 


190 











ondant au Jième gra- 
phisme suivi de 2 espaces pour séparer les différents 


SOLUTION DES EXERCICES 


VARIABLES 


AD adresse de début 

AF adresse de fin 

l,J compteurs 

CMEM contenu d’une case mémoire 
A$ caractère de code ASCII, CMEM 


COMMENTAIRES 


110 : conversion du contenu (octet) de la case mémoire en un 
nombre hexadécimal. 

150 : si l’octet CMEM est compris entre 33 et 126, il correspond 
au code ASCII d’un caractère affichable. 





EXERCICE 3.19 
PROGRAMME 





10 FREM 

20 REM CRYPFTAGE D'UN TEXTE 

ECO RE KR HCAOHKOACK NOK CE KA KE X 

40 CLS 

Ji) MEM 

äD REM Alphabet et codage 

70 FREM KKXKKAKAEEXEXEXAXX 

80 ALFHASE"ABCDEFGHIJELMNCEORESTEMVUXY 2" 
99 CODESE="ONERTYUTIOFASDEF GHTELZXCVENN 
100 REM 

110 FHRINT "ENTREZ LE TEXTE & CODER 3 ° 
120 LINE INPUT TEXT# 

150 TEXT#eUPPERS (TEXT#) 

140 CTXTSæe"" 

180 FOR Tæ1i TO LENITEXT#) 

140 AS=MIDSCTEXTS, TI, 1) 

170 FEeINSTR(IALFHAS, 4%) 

190 IF F=0 THEN CTXT#=CTXT#+A8 ELSE CTXT##0TX 
TH+MIDS CCODES, F, 1) 

190 NEXT T 
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EXERCICES EN BASIC POUR AMSTRAD 


O0) 


#10 


CLS 

INT: FRINT 

) PRINT LE TEXTE 
FRINT 
FFRINT 
ERINT 
END) 





CRYPTE EST : 







EsQ CTYTS 
RTE 


En 
RCE) 


VARIABLES 


ALPHA$ alphabet naturel 


CODES 
TEXT$ 
CTXT$ 


alphabet de codage 
texte en clair 


P 
A$ 
| 


texte crypté 

variable numérique 
variable alphanumérique 
compteur 


COMMENTAIRES 


90 
130 


170, 


: on affecte à CODES la suite de l'alphabet de cryptage. 

:transformation du texte en lettres majuscules. 

: P donne la position dans ALPHA$ de la lettre à coder. Si P 
est différent de 0, on extrait alors la Pième lettre de CODES. 


180 





EXERCICE 3.20 





PROGRAMME 


19 
F0 
E0 
40 


10) 


0 


REM 

REM FICHE DE SAISIE DE DONNEES 

REF XX OACKOKOKOACK AOKOKOAOKCAONOK HE NC RON HN NO HOACK 

XINT floebs XINI CT) es KINI Clos XINTI Ce le 
CLS 

REM 

REM ITnitialisation des fenetres 

REP XX ONE HO HACK NEC NOK AO HEHKEKOKOXCXCX OH XX 

WINDOL #1, 1440, 6 


100 WINDOW H#2,1,40,7,8 
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SOLUTION DES EXERCICES 


110 WINDOW HE, 1, 40,9, 10 

120 WINDOW H4, 1, 40, 11,12 

150 PRINT #41, "NOM'STRINGS C57, 0,0) 
140 FRINT #2, "Frenom'STRINGS (T4, 7,1) 
150 FRINT HE, Adresse "STRINGS ( 
180 FRINT #4, "Tel ephone"STRINGS ( 
170 REM 

140 FOR Teil TO 4e KT) ÆKINT CTI ENEXT T 

190 I=i 

200 LOCATE HIS X CTI, LE PFRINT HI, CHRGS LL) 

310 KREM 

220 RENM fcouisition d'une touche 

10 FREM AXXXAXEXEXAXEMEMAEEXXXXX 

ED ABEINEEVS: IF Abe" THEN Z40 

230 REM 

260 REM Comparaison a une valeur 

270 REM alphanumerique 

290 REM XX NCXOK NOK NOK HO OKOXOKNO KO XC KO X 

290 IF (CASE "A" AND Az" 27") OK (A$:s"a" AND 
Agie"s") OR (CAS:="O" AND A$c="9") OR AS=CHRE ( 
HE) THEN LOCATE HI, XCI) 1: PRINT KI. A$3::GOTQ S 
530) 

300 HEM 

H10 REM La touche n'est pas prise 

20 KEM en compte 

. REP XCAOICK NOK ACKKONC ACER X REX EN EXEEXX 

40 IF ABC ECHRS LT) AND AE SCHKRS CE40) AND 48€ 
sCHPRS (241) AND BE CHRS (127) THEN #40 

E50 IF AS=CHARS (240) AND Izi THEN 240 

260 IF ASECHRS (241) AND I1=4 THEN 240 

270 LOCATE HIS X CI) LE PFRINT HIS." 

380 REM 

290 REM Touche ENTER 7? 

400 REM XXAXX XX NE XNOHUX 

410 IF ASECHRS C1) THEN LOCATE 1,405: END 

420 REM 

AO REM Touches de deplacement 7 

44 REM KHOKOXK AOHCKOKOK NOK OKON NOACHOKOKCKCKK OK XX 

AGO IF ASECHRE (240) THEN IF Ii THEN Iel-15sG0 
TO 200 

480 IF ASECHARS ZA) THEN IF I£4 THEN IeT4is Gi 
TQ 200 







EL, He ny 
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EXERCICES EN BASIC POUR AMSTRAD 


470 REM 

400 REM Touche DEL 7? 
490 KEM KXXXXXXEXXXXX 
O0 IF ASeCHRS (127) THEN XCT)EæeX C1) -2 
10 : 

Se 0) 
Ji REM caractere de la zone ? 

HD REMAKE AOC XOE NOE KE NOK HE NOXCE XX 

D OX CTo=X ET) +1 

mé IF XIT)EÆ=XINTÉT) THEN X CI) Æ=XINI CT) 
70 IF KCI)EES THEN X{1)=40 


do GOTO 200 








VARIABLES 

XINI tableau contenant les positions initiales dans une rubrique 

| compteur ; 

X tableau contenant les positions courantes dans une rubrique 


A$ touche frappée au clavier 


COMMENTAIRES 

40 :initialisation de la position du curseur dans chaque ru- 
brique. 

90-120  : définition d'une fenêtre par rubrique. 

200 : dans la lième rubrique, on affiche le curseur (pavé jaune), 
à la position donnée par X(I). 

290 : les seuls caractères acceptés sont les lettres (minuscules 


ou majuscules) etes chiffres. 
350, 360 :teste si le curseur reste dans les limites de la fiche. 
390-410 :traitement de la touche ENTER. 
430-460 :traitement des touches de déplacement vertical. 
480-580 :traitement de la touche DEL. 
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SOLUTION DES EXERCICES 





EXERCICE 4.1 


PROGRAMME 





10 REM 

20 BEM Histogramme en batons 

EG REM XX KO OKON OKON HACK X 

40 DIM NCIS) 

ao CLS 

&Q FOR Tæ1l TO 15 : 

70 FRINT "Nombre (OQ-100) "s USING " HK";l: 
80 INPUT "0 ",NCT) 

Qu IF NCIEO OR NCI) +100 THEN 76 
100 NEXT I 

110 REM 

120 REM Affichage de l'histogramme 
150 REM KO GO KOMOKOK HONOR MON NON HOE NOXKOXXK 
140 INE Z,B8:INE 3,0 

150 FAFER 2 

160 CLS 

170 LOCATE 15,4: FRINT "Histogramme" 
190 FRINT CHR# C22) +CHR# (1) 

190 LOCATE 15, 4: FRINT STRINGS# (11, "2" 
200 FRINT CHR& (22) +CHR# (0) 

LOCATE 1,1 

FOR Il TO 15 

Cri-C:Fel+Cs PEN EF 
NEGEFIX CN CT) 4507/1000) 
LE=STRINGS (NEG, CHERS (14220 
LOCATE 1,1I+S5:FRINT USING M" HAM+LEIT 
NEXT T 

IF INEÉEVS="M" THEN 280 

FAFER © 

FEN 1 

END 





VARIABLES 


P,C 
| 





variables 
compteur 
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EXERCICES EN BASIC POUR AMSTRAD 


N tableau des valeurs à afficher 

NBG nombre de pavés, proportionnel à la valeur à représenter 
L$ bande de longueur proportionnelle à la valeur à représenter 
COMMENTAIRES 


180, 190: passage en mode transparent, permettant de souligner les 
caractères du mot histogramme. 

230 : le changement de couleur est obtenu en utilisant la varia- 
ble auxiliaire C, qui prend la valeur 0 et 1 successivement 
à chaque exécution de la ligne 230. En effet si C est égal à 
0, (1 — C) prend la valeur 1 et si C est égal à 1, (1 — C) 
prend la valeur 0. P prend donc les valeurs 1 et 2. Cette 
méthode permet de commuter l'encre du stylo. 

240 : NBG représente la valeur entière par défaut, du nombre 
de positions de la lième bande à afficher. Chaque pavé 
représente ainsi une variation de 3,33 (100/30). 





250 : L$ est constituée de pavés pleins (caractère CHR$(143)) en 
nombre proportionnel à la valeur à afficher. 
260 : PRINT USING permet d'afficher la valeur de | devant la 
bande. 
EXERCICE 4.2 





PROGRAMME 


10 REM 

2 RENM Histogramme en batons 

HO REM KAXXXXKXMEEXXXEEENHNE 

40 DIM NC20Q) 

Jo CLS 

60 INFUT Nombre de valeurs Cé-20) 8 MN 
85 PRINT | 
7Q IF NEZ OK NEr20 THEN 40 

S0 FOR Ii TO ON 

90 FEINT "Nombre (O-1000) MsUSING " HHMs Is 
100 INFUT "05 "QNCI) | 
110 IF NCI)DEO OK NT) #=1000 THEN 90 

120 NEXT I 
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SOLUTION DES EXERCICES 


150 REM 

140 REM Recherche de la plus 

150 REM grande valeur 

160 REM XX OGC NOK NON HONN NON NOK CH X 

170 GE=N (1) 

180 FOR Ix2 TO N 

190 GeMAX(G,NCI)) 

200 NEXT TI 

REM 

REM Calcul du pas 

REM KA X HUE KNONX AK 

FASEG/E0 

REM 

REM âffichage de l1l'histogramme 
REM  XCHOKOKOHOKONOK OKOKOHOK KOKOOCHOKOMOKOKOK KO EX 
INE GO: INE 3,0 

FAFER CI 

CLS 

LOCATE 15, 4: FRINT "Histogramme" 
FRINT CHARS C2) 4+CHR8 (1) 

LOCATE 19,4: PRINT STRINGS CLS") 
FRINT CHRS# C2) +CHECE CO) 

LOICATE 1,1 

FÜR Iæ1i TO ON 

Cei-C:Fel4Cs FEN F 

390 NEGEN CI) /FAS 

290 LéRSTRINGS (NES, CHRS& (147) ) 

400 LOCATE 1,145: FRINT USING ! OHHM4LSE4N HEAR. # 
Ma TsNCT)Ss 

4iG NEXT I 

AO IF INÉEYS="" THEN 420 

45Q FAFER © 

440 FEN 1 

40 END 








VARIABLES 


P,C variables 

compteur 

N nombre de valeurs à étudier 
N (20) tableau des valeurs à afficher 
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EXERCICES EN BASIC POUR AMSTRAD 








PAS plus petite variation contenue dans un pavé 

G plus grande valeur du tableau N 

NBG nombre de pavés, proportionnel à la valeur à afficher 

L$ bande formée de pavés pleins (CHR$(143)) 

COMMENTAIRES 

240 : la valeur correspondant à un pavé sur l'histogramme est 
égale au rapport de la plus grande valeur par le nombre 
maximal de pavés. 

390 : l'instruction STRING$ convertit NBG en entier, si néces- 
saire. 

400 : affichage de la ligne de couleurs correspondant à la lième 
valeur et de la valeur N({l). Le format USING affiche le rang 
| sur 2 positions, puis L$ et enfin N{l) sur 5 positions (3 
pour la partie entière, 1 pour le point, 1 pour la partie dé- 
cimale). 

EXERCICE 4.3 

PROGRAMME 

19 REM 

20 REM HISTOGRAMME CONFARATIF 

FO REM #XX KO ONONOKOK NOK CH OHOKONONOKOXKX 

4 CLS 

30 DIM N(1,9) 

80 FRINT "Valeurs (Fremigere, seconde)" 

70 FRINT 

80 FOR I=Q T0) 9 

O0 PRINT SFC(S) "Pour "+STRS (197441) INPUT "os 

"NCOS I) NC, I) 

100 IF NCQI)EO OR NI, TI)IEQ THEN 90 

110 NEXT I 

120 REM 

150 REM Recherche de la plus grande 

140 REM valeur 

150 REM XX OX AOHCK AO KOKOKKOKCHC NO NOK ACKO MK K 

160 FOR I#OQO TO 9 

170 GEMAX(G,N(O, I), NC, 1)) 





180 


180 
190 
200 
210 
220 
RTE) 
240 
BE 
Zés0 
70 


RTS 





EC 
E00 
310 


SE0 


SOLUTION DES EXERCICES 


NEXT TI 

FASEG/EO 

REM 

REM initialisation des 

REM parametres d'affichage 
REMCKONOMOCNOOKCK NONEOKONNE NCA NOK HCNCKHCK 
INF O1 

INK 1,24 

INK &, 
INK 7, 0 

FAPFER 5 

CLS 

FRINT TAB (9) "HISTOGRAMME COMFARATIF" 
FRINT TAB (9) "Produit À 8 MAHCHRS (LA) 
FRINT TAB(S0 "Produit Rs MssFEN Es FRINT € 











HAS CLAT):FEN 1 


F0 








400 
410 
470 
450 
440 
450 
440 
470 
480 
490 
S00 


210 


PRINT TS C9) MUMAX: MROUND (5, 2) 
FRINT 

C1 

FOR IeQ TO 9 

FOR Je0 TO 1 

NEGEN CI, Ti /FAS 
LÉeSTRINGS (NES, CHRS (1475) ) 
Cei-CsPeC4+is FEN F 

FRINT USING HHHHU4+" M+Læs 19744T 
NEXT J 

NEXT I 

IF INÉEYS#="" THEN 440 

REM 

REM Farametres de retour 

REM OKXXKKEEXEEXEXEEEMEAXX 
FRAFER © 

FEN 1 

FRINT 

END 





VARIABLES 


l,J 

G 
NBG 
L$ 


compteurs 

plus grande valeur du tableau N 

nombre de pavés correspondant à la lième valeur | 
chaîne formée de pavés (CHR$(143)) en nombre égal à NBG 
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EXERCICES EN BASIC POUR AMSTRAD 


PAS valeur correspondant à un pavé (pas de quantification) 
N(1,9) tableau des valeurs des 2 articles sur dix années 
P,C variables 


COMMENTAIRES 


80-110  : entrée des deux séries de valeurs, année par année. 

330, 390 : affichage d'un bâton horizontal de longueur proportion- 
nelle à la valeur à représenter. On utilise la couleur ma- 
genta pour un article et la couleur jaune pour l'autre. 
Chaque bâton de l'histogramme est précédé de l'année 
plus 2 espaces et est suivi de la valeur correspondante, 
arrondie à un chiffre après la virgule. 





EXERCICE 4.4 


PROGRAMME 





10 KEM 

20 REM GRAFHIQUE EN SECTEURS 

HO REM XX XKOCHOKOKOKONONOK OKON OKOK OKON 

40 CLS 

90 INFUT "VOULEZ-VOUS UN TRACE SOIGNE CO/N) : 
"M REFS 

HO IF REF#="0" OK REF$z'"o" THEN AGFAS=0, 001 E 

LSE AGFASEO, 1 

70 READ NVAL 

8Q FOR I=1 TO NVAL 

90 READ NCI) 

100 NEXT I 

110 KREM 

120 KREM Initialisation des 

1:50 REM parametres d'affichage 

140 0 REM XX XX NON ONOK OKON KCHKONCHOK OK KKCKK 

150 INE O,1 

160 INK 1,24 

170 INE 2,8 

180 INE 5,0 

190 FAFER 3 


182 


SOLUTION DES EXERCICES 


FAPER H1,7T 

RAD 

REM 

RENM Valeurs initiales 
REM KKXXKXXKXXEXEXEXEXX 
ORIGIN 200, 200: RAYON=150 
WINDOW #1,70,40,1,€5 
REM 

REM Calcul du total 
REM XX KHOXOMOAONOHOUOKOKOHOK X 
[PE] 

FOR Iæi TO NVAL 


NEXT I 

REM 

FEM Calcul des angles 
REM OK OHOXCK OH OHOKOMONOKONKOKOKOKHX 


NEXT I 

REM 

BEM Trace du graphique en secteurs 
REM  KOKOK HOKOKOMCHOHOKOKOKOKOHOK OKOHOH KO KONHOHE NON ON 
CLS 

FRINT TAB CS) "Graphique en secteurs" 
FEINT #1, "Valeur (s)" 

FOR Tel TD NVAL 


FOR J#AG(I-1) TO AG(I) STEF AGFAS 
FLOT OQ,CG,F 

DRAM  RAYONKCOS CI), FAYCNXS IN (9) 
NEXT J 

NEXT T 

REM 


REM XKXEXENEMXMEREEHEEEXX 
FRINT #1 

FOR Is1 TO NVAL 

FRINT #1, ROUND CN CT), 5) 
NEXT I 

JF OINEEVS#="" THEN 4610 
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EXERCICES EN BASIC POUR AMSTRAD 


&E0 FAFER 0 

630 LOCATE 1,25 
&40 END 

40 DATA 10 


660 DATA 12.5,12.5,25,25,45.3,23.09,56,34,12. 
9,17,8 


VARIABLES 


AGPAS pas angulaire 
REPS$ réponse 


NVAL nombre de valeurs traitées 

1, J compteurs 

N tableau des valeurs 

G valeur maximale de N 

AG tableau des angles des secteurs 

PC variables 

RAYON rayon du cercle 

COMMENTAIRES 

60 : suivant la valeur de REP$, on affecte 0.001 ou 0.1 à AGPAS. 
80-100  : lecture des valeurs passées par une liste de DATA. 
250 : l'origine graphique est placée au milieu de l'écran. 
260 ‘ : une fenêtre est définie pour l'affichage du tableau N. 


300-330  : calcul de la somme G des valeurs de N. 

350-400 : calcul des angles : à la valeur de rang |, on fait corres- 
pondre un angle AG{l) égal au pourcentage de N(l) par 
rapport à G, multiplié par 2 X PI (cercle complet) et aug- 
menté de AG(I-1). 

490-520 :tracé du secteur de rang | : on affiche des segments, de 
longueur donnée (RAYON), depuis l'origine par pas de 
AGPAS en partant de AG{I-1) jusqu'à AG(I). 

560-600  : affichage des valeurs dans la fenêtre 1. 


Remarque : le tracé soigné nécessite quelques minutes. Ne soyez pas 
trop impatient ! 


SOLUTION DES EXERCICES 





EXERCICE 4,5 


PROGRAMME 






10 REM 

20 REM GRAPHIQUE EN BANDES 

FO REM HO OKON HN OXOHON NON HOME NONOXX 

40 DIM LG CFO ,NCEO) 

0 READ NYAL 

40 FOR Ie1i TD NYAL 

7Q FEAR NCT) 

8Q NEXT I 

GG KEM 

100 REM Initialisation des 
110 FEM parametres d'affichage 
120 REMAKE OXOM ACHNONOOMCOKCH NOM NCHOHCNOK HONCKK 
120 INE O,1 

LA INK 1,24 

150 INE 2,8 

LéQ INE FE, 0 

170 FAFER 3 

180 FAFER KLSZ 

190 WINDOW #1,20, 40, 1,25 

200 ORIGIN 10, 2G0 

210 Li00=400 

20 REM 

REM Calcul du total 

REM OK XOKOKOHKOK CH HE KOK OX XN 

5=0Q 

FOR Iæi TO NVAL 

GEG+N (CT) 

2890 NEXT I 

REM 

REM Calcul des longueurs 
REM KKKXXXEKEXEEXXNMEXXX 
LG (0) #0 

FOR Iæi TO NVAL 

LS CT) &ELGCT-1) +LIQOOXN (I) /G 
NEXT I 

REM 

REM Trace du araphique en bandes 
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EXERCICES EN BASIC POUR AMSTRAD 


380 REM OK XOX OK OKOK NOMME KOKOKONONOKONOEK OKON OKON XX 
390 CLS 

400 FRINT TAB (5) "Graphique en bandes" 
410 FRINT #1,"Valeur (s)" 

AO FOR J=e1i TO 70 

450 CeG 

440 FOR Teil TI NVAL 

40 Ceil-C:Fel+C0C: PEN F 

460 FLOT LGSCI-1) ,J,F 

470 DRAW LGCI),9J 

490 NEXT I 

490 NEXT J 

A0 REM 

210 REM Affichage des valeurs 

REM KO KO KO HOKOKOEOKOAOK KE HO K 

FRINT #1 

FOR Iæ1 TO NVAL 

FRINT #1, ROLIND (NCI),:25) 

NEXT TI 

IF OINÉEY#Æ"" THEN 570 

390 PAFER 0 

90 PEN 1 

LOCATE 1,25 

END 

DATA 7 

DATA 12,5, 12,08 208 ds 490 D Be 09 9 Vu 12 
D D DRE PE Pi 


CR 














VARIABLES 

LG tableau des longueurs des segments de la bande 
N tableau des valeurs 

NVAL nombre de valeurs 

l,J compteurs 

L100 nombre de points de la bande complète 

G total des valeurs de N 

P,C variables 

COMMENTAIRES 

70-90 : lecture du tableau N à partir de la liste de DATA. 
190 : définition de la fenêtre d'affichage 1. 
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SOLUTION DES EXERCICES 


200 : l'origine est mise en 10,200. 

210 : L100 est pris égal à 400. 

230-280 : calcul de G. 

300-350 : calcul de LG{I), distance du point terminal du lième seg- 
ment à partir du début de la bande. 

420-490 :tracé de la bande LG(I) constituée de 20 lignes horizon- 
tales. 





EXERCICE 4.6 


PROGRAMME 


10 REM 

20 REM GRAFHIGLE EN COLONNES 
SO REM XKKEMEMKEMKEXAAAEHAMEX 
40 DIM LG CEO) ,NCEO) 

90 READ NYVAL 

&0 FOR Ie1 TO NVAL 

79 READ NCI) 

0 NEXT I 

GC REM 

100 REM Initialisation des 
110 REM parametres d'affichage 
120 REM  XOAMCXK OK OHENOK NOR K Ce 
1LIOQ INE OQ,1 

140 INF 1,24 

190 INE 2,8 

160 INE 5,0 

170 FAFER Z 

190 PAPER #1, 

190 WINDOW K#1,70,40,1,25 
200 ORIGIN 200,20 

210 LIi00=E00 

Be REM 

EIQ REM Calcul du total 
240 REM XX KA KO IOK NONON 
290 Ge0 

260 FOR Iei TO NVAL 

270 GEG+NCI) 





ro 
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EXERCICES EN BASIC POUR AMSTRAD 


NEXT OT 

FREM 

REM Calcul des longueurs 

REM KO KO ON HE KONHOXCHOMONON NH K 

LE CO) = 0 

FOR I&1 T{ NVAL 

LES CT) EL G CT 1) +LIOOXN CI) /G 

NEXT OT 

REM 

REM Trace du graphique en colonnes 
FE M CH HE AOXONOK HOKOK HN CH HKOMOM HE OK ME CHE CE 
CLS 

FRINT TéE C4) "Graphique en colonnes" 
FRINT #1, "Valeur (5)" 

FOR Jel TO 0 

(ET 

FOR Tel TO NVAL 
Cei-CiFel+C: PEN F 
FLOT J,LGCI,F 
DRAW J,LGCI-1) 
NEXT TI 

NEXT J 

EM 

HEM Affichage des valeurs 
REM  XOX OKON HACK HOK HONCKOH HOMO NONOKCH 
FRINT #1 

FOR IENVAL TO 1 STEF —-1 
FRINT #1, ROUND (NI) ,%) 
NEXT I 

PQ IF INEEYS#Ææ"" THEN 570 

90 FAFER © 

90 FEN 1 

500 LOCATE 1,275 

&iQ END 

&20 DATA 10 
GE DATA 18,5,17 Ts es 49,3 23. 89,74,34,12. 


9,2.8,6.7,27, 

















VARIABLES 


LG tableau des longueurs des segments 
N tableau des valeurs 
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SOLUTION DES EXERCICES 


NVAL nombre de valeurs 


1, J compteurs 

L100 longueur de la colonne complète 
G total des valeurs de N 

P,C variables 


COMMENTAIRES 


470 :affichage d'une colonne verticale de hauteur proportion- 
nelle à la valeur représentée. 





EXERCICE 4.7 


PROGRAMME 






10 KEM 

80 REM STATISTIQUES DE LANCERS DE DES 

ECG OREM XXKXKKEMXXEXEKXEREAEEXKXEXEEMKXEX 

40 DIM VCT4) ,NCEES) 

DOUCLS 

80 LOCATE 1,10 

7Q INFUT "Choisir un nombre de des (1 a 4) 
MN 

80 IF NS1 OK Nré OK NESINTON) THEN 50 

90 KRANDOMIZE(TIME: 


100 CLS 
110 REM 
120 REM Lancer des des 
150 REM OXXXXEX NME X 


140 FRINT "SOMME DES FACES SORTIES 

150 FRINT "Four arreter, frapper une touche" 
160 FRINT 

170 FÜR I=1i TO 400 

180 IF INÉEYS#<£EU" THEN 710 

190 S=0 

#00 FOR Jæ=1il TO ON 

210 SeS+INT CSKXRND) +1 

220 NEXT J 

270 V(S)eV(S) +1 


189 


190 


EXERCICES EN BASIC POUR AMSTRAD 











FRINT USING 'HHHH"3S 

GC 

FOR JEeN TO &XN 

NOJizV CT) /T 

IF GENCI)Y THEN GEN(J) 

NEXT 

NEXT 

REM 

NL T1 

REM 

REM Affichage de l'histogramme 
REMAKE OKOKOKOHOXOKOHOKCH HOKOKOHH HOME KO NOK Xe 
IN 1,25 

INF Q,0 





FEN 1 
WINDOW #1,28,40,%,8 
FAFER #1,0 





RENM Trace 

REM XXE X 

FOR JEN TT 4XN 

FOR To TI) 14 

FLOT LSX CJ-N) +841, 0 


IF IeQ THEN DRAUR O0, 4: FLOTE 0,4 


DÉAUWR QG SOOXN (Ji /G 





EYT 
FLAT 





LE, QC: DRAUWF ©, 4 
LOCATE SRE: FRINT ON 

FRINT #1, "Histogramme" 
FÉINT #1, "def" NL; "lancers" 
FRINT HI, VMAXE "Ts ROURID (5, 4) 
IF INÉEYS#S="" TMEN 550 

INF 1,24 

INK 0,1 

FEN 1 

FAFER Q 

END 





SOLUTION DES EXERCICES 


VARIABLES 

R variable d'initialisation 

LJ compteurs 

N nombre de dés 

S somme des dés pour un lancer 

G valeur maximale du tableau N 

V tableau des sommes 

N tableau des pourcentages d'apparition des sommes 
NL nombre de lancers 

COMMENTAIRES 

90 :initialisation de la séquence de nombres aléatoires par 


l'instruction RANDOMIZE(TIME). 
170-300  : boucle de calcul et affichage des sommes successives ob- 
tenues. La boucle s'arrête au bout de 600 lancers. 


180 : possibilité de sortie avant la fin des 600 lancers par appui 
sur une touche quelconque. 

230 : calcul de la somme des faces sorties. V(S) contient le nom- 
bre de fois où la somme S$ est sortie. 

270 : N(J) contient le pourcentage d'apparition de la somme J, 


parmi le nombre total | de lancers. 
410-480 : affichage de l'histogramme. 


450 :affichage des graduations horizontales. 
500 : affichage de la somme minimale possible avec N dés, c'est- 
à-dire N. 





EXERCICE 4.8 





PROGRAMME 
10 REM SAC ACX SR 


1 2 REM * En os 1 cn à 4 Flos # 
S # Es + #4 & #P S je … 4 LA 
RARE XX 






MATTTITT TT PRRTETITITITTT 
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EXERCICES EN BASIC POUR AMSTRAD 


3e 


70 REM 


s" obtiennent 
À. * 








# 

* F 

* et PAPER EX 
ONCE ACC K GC OMC CO KR KE OK MK 
*X Four obtenir La couleur # 
kr Ex 

* 

x 

* 

* 






pour ue 1 SBEVIOX 
aut ExXBCUEEr  # 
: a INE HE, L& X 
on change aussi en % 
le papier numero * 
AONKOA A AOC NOK ANNE EEK OK EME NO E KE EOKKK 
180 SYMEOL AFTER 145 
190 SYMEOL 1468, RFF, EFF, RFF, RFF, SEL, SFD, FD, RE 










200 SYMEOL 147,8FD, 8&FD,&ED, &FD, RFD, BED, ED, à 
210 SYMEOL 148,8%F CF D, SPC, &FC ,%FC n BFC, RFC, &F 





2EQ SYMEOL 149, FE REC, REC, PC, RP, RPC, BFC, 7 


SYMEOL 160, 879, RFC, SEC, 676, 879, 8350, 850, 0 
CLS 

FOR Tel TO 

FEN TI 

FOR Jæ1i T0 cn 

LOCATE 17H EMI, Je: PRINT CHRS (1454) 
NEXT J 

LOCATE 17+4SXTI, SG: PRINT CHK& (150) 
NEXT I 

REM 

REM Changeons la couleur de l'encre 
REM XX AO NONOKOKOKOKONOKOHOKOKONOKON KOKCKCHONEKOHEONC MEN AO X 
INE Q, O0: FAFER Q 

INF 1,4 

FEN 1 

LOCATE 1,15 

FOR Ixl TN 

400 FEN TI 

410 PRINT "CODE COULEUR DE L'ENCRE DU STYLO"; 
Css INPUT Ms MN 

420 INE IN 

40 NEXT I 

40 REM 
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SOLUTION DES EXERCICES 


430 FRINT: PRINT "Four arreter taper une touch 
sn 

HO IF INÉEYS="" THEN 460 

#70 FEN 15LOCATE Œ7,1S:FRINT #4 

480 INE OL: FAFER © 

A9O CINE 1,24: FEN 1 

200 LOCATE 1,20: END 


VARIABLES 


lJ compteurs 
N code de couleur (0-26) 


COMMENTAIRES 


190-230 : définition des 5 caractères graphiques, utilisés pour des- 
siner un stylo. 
390-430 _ : on demande successivement les trois codes de couleur. 





EXERCICE 4.9 


PROGRAMME 






19 REM 

20 REM SECTEUR TOURMNANT 

FO REM HK AH AOHOK NON MON ANAE X 

40 ON BRERE.GOSUR 390 

ce CLS 

40 INFUT "Niveau de definition (1-10) "NY 
70 NV&INT (NV) 

8Q IF NVETL OM NV:20 THEN 60 

90 DIM XVAL CZOXNYV), YVAL CEOXNV) 

100 AFASSFI/ (NVK10) 

110 REM 

120 REM Calcul des points du cercle 
150 REM XX XX OXOKONOKOE HOKONOKCH OH KO OKON KONOK HACK X 
140 MODE Q 

130 LOCATE 10,13: PRINT "PATIENCE II 
160 FOR I=0Q TO ZOXNV-1 
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EXERCICES EN BASIC POUR AMSTRAD 


XVAL (I) =100XC0S CAFASXT) 
YUAL CI) =1O0OXSINCAFASXI) 
NEXT T 

REM 

REM Valeurs initiales 
REM XXE OKOK OO OKOK OK ONCE X 
MODE 1 

INÉ OIL INE 1,26: INK 2, 6rINE SG, 15 
ORIGIN 200,200 

FAFEF 

ÊES 

REM 

REM Secteur tournant 
REM XX OX OKOKONONONKOKKOKHONX 
FOR Je0Q TO 2OXNV-1 
XNEXVAL CJ) ss YNE=YVAL (J) 
JOEJ-NV:IF JO£O THEN JO=J0+20XNV 
XO=XVAL (JO) : YO=YVAL (JN) 
FLOT Q,0,1:DFRAW XN, YN 
FLOT G,0,2:DRAW X0, YO 
NEXT J 

GOTO 510 

INF O1 INE 1,24 

FAFER O:FEN 1 








END 
VARIABLES 
NV niveau de définition 
1, J compteurs 
XVAL,YVAL tableau des valeurs des points sur le cercle 
APAS angle entre 2 rayons voisins 
XN,YN extrémité du prochain rayon 
XO,YO extrémité du rayon à effacer 
JO rang de XO,YO dans XVAL,YVAL 
COMMENTAIRES 
100 : APAS représente l'angle entre 2 rayons. Si NV augmente 


APAS diminue et la définition devient plus grande. Tou- 
tefois cela ralentit l'exécution du programme et donc aussi 
la vitesse de rotation apparente du secteur sur le disque. 
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SOLUTION DES EXERCICES 


120-190 : calcul préalable des coordonnées des extrémités des 
rayons sur le cercle. 

330 : si JO est négatif, il faut effacer un rayon du secteur qui se 
trouve en fait dans le tableau à l'indice (JO + 20NV), soit 
1 tour complet en plus. 

350 : on allume le rayon d'extrémité (XN,YN) en blanc. 

360 : on allume le rayon d'extrémité (XO,YO) en rouge. 





EXERCICE 4.10 


PROGRAMME 


14 REM 

20 DEFINT N 

210 GSYMEOL 290,818, MIC SMIC, MIE, MIE SMVE, SFF, REF 

40 SYMEOL 2S1,%FF, FF, %FF, ME, M7E, HEC, LEC, 816 

50 CLS | | | 

&ù REM Entree de l'age 

70 REM XXE AO KO KO KO X 

89 INFUT "Quel est votre age (Cinferiægur a 20) 
"sN 

PO IF N£1 OK N:20 THEN 80 

100 KEM Initialisation 

110 REM XX OCR OK OHCONOK OKON NOK K 

120 Fe: PYeS 

120 REM 

140 REM Boucle d'affichage 





150 REM XX XX ONE KOKKOKOK OH X 
160 FOR KE=1 TON 
170 


180 
190 SE THEN FXeS:FYeFy+8 

200 NEXT KE 

210 KENM 

LOCATE 1,27 

FEN 1 

END 

REM 

260 REM Dessin d'une bougie dont la 








195 


EXERCICES EN BASIC POUR AMSTRAD 


270 REM flamme clignote en position 
280 KEM FX, FY 

260 REM XX XCOX KOKOKOHOKONONOMONOXOOKOKOOXOM OKON X 
O0 SPEED INK SE 

INK EH, 24,15 

FEN 2 

LOCATE FX, PY:PFRINT CHARS (2500 
LOCATE FX, FY+4 13 FRINT CHR# (251) 
INE ES Té 

FEN 

FOR Tæ1l T9 4 

LOCATE FX,FY+1+I:FRINT CHR# (147) 
NEXT IT 

RETLIFEN 


a 





VARIABLES 


N âge ou nombre de bougies 
1,K compteurs 
PX,PY position des bougies 


COMMENTAIRES 


190 : si PX est supérieur à 33, 10 bougies ont été dessinées sur 
une même ligne et on passe à la ligne suivante. 

300 : l'instruction SPEED INK permet de donner la durée de cli- 
gnotement des 2 couleurs définies par l'instruction INK 
(ligne 310). Cette durée est calculée en cinquantièmes de 
seconde. 

310 : l'instruction INK permet ici de définir 2 couleurs qui cli- 
gnotent (jaune/orange). 





EXERCICE 4.11 
PROGRAMME 





10 REM 

20 KEM TRACE D'UNE GRILLE 
20 REM XX OK OK AK OHOKOK KONE KO XX 
40 ORIGIN ©Q,0 
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SOLUTION DES EXERCICES 


SO INE O,LsINE 1,P42INE POrINE 5,8 
60 WINDOW #1,89,401,85 | 
70 PAFER #1, 
80 CLS 
90 INEUT "LARGEUR DE LA MAILLE : "LES 
100 IF ES1 OR E6:799 THEN 90 

CLS #1 

















REM Droites horizontales 
150 REM KKXKXKEXXEMXEXKEXEXXX 
lé FÜR ITeOo TO ON 
170 FLOT QGIXES, ZT: DROW NKES,IY*ES 
180 KR T I 
190 : 
sQO REM Droites verticales 
210 REM KKXAXAXKEEMENMENEXX 
220 FOR Teo TO N 
FLOT TKES, OZ: DRAW TXES,NXES 
NEXT TI 
REM 
REM Retour 
REM  HGHOX ON AUX 
FETNT HA, "Four arreter "ss PAINT HI," Etap 
MaFRINT #1," une touche" 
290 IF INKEYS#="" THEN 290 
200 FAFER O:FEN 1 
510 END 















VARIABLES 


compteur 
N nombre de mailles par ligne et par colonne 
ES largeur de la maille 


COMMENTAIRES 


60 : définition d’une fenêtre d'affichage. 
140-180 : tracés des lignes horizontales. 
200-240 :tracés des lignes verticales. 
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EXERCICE 4.12 


PROGRAMME 






10 FEM 

20 REM 

30 REM TRACE DE FONCTION 
40 REM XX HOX OK ACHOROHONOAOX AOC 
0 MODE 

EG OINE QG 1 

70 

50 

30 

100 


110 









2 OGRAFHE D'UNE SINUSQIDE" 


,200,0,4%9,0, 380 





Valeurs initiales 

KO KOKOKOKO NCA NON CKHOXCX 

Da UNYe150 

Dr XMAXEEXPI : FASEOQ, OÙ 










EM Trace des aKke65 

LEO REF OX AK CNRC HOK KONCK 

190 FLOT 15,0, 1s:DRAW 980, 0 
-180,1:DRAW 0,180 
NY: DRAW CE, UNY 
TE ee LIN: DRAC, —LINY 






Trace de la fonction 
KONOKOONONE KOMOK AK HER K EX 
FOR LIeXMIN TO XMAX STEF FE 
GE XEÆLUINX ET : ABYEUNYXSIN CT) 
DRAU AEX, AFY 

F ET 

REM 

RENM Trace des graduations 
REM de l'axe horizontal 
FRET AM MON ACACHONC HE AK MOKCHCNE CAC CNE ACXCX 
TAGS 

FOR ExoQo TO FIX (XMAX 

FLOT LUNXXE, 8: DRAW UNÉX4E, ES 
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SOLUTION DES EXERCICES 


380 MOVE EXUNX-24,-8:PRINT Es 


290 NEXT E 
400 KEM 
410 KEM Retour au mode 1! 


420 REM 
40 IF 


440 MODE 


AHOAOKONONOX A HONON AONHOKX 


INEEYS#= "UT TMEN 420 
pe 


450 INÉ O,12INÉ 1,24 
460 FAFER O:FEN 1 
470 END 

VARIABLES 


XMIN,XMAX plage de variation de X 


UNX,UNY nombres de points graphiques pour l'unité 

X,Y coordonnées du point à afficher 

E,I compteurs 

PAS pas de quantification 

ABX,ABY coordonnées du point de la courbe à afficher 
COMMENTAIRES 

80 : CLG 0 efface l'écran dans la couleur graphique 0, de code 


140 


210-220 
350 


360-390 
370 
380 


couleur 13 (gris). Cette instruction est importante car si la 
dernière utilisation de CLG était CLG 1, alors à la ligne 380, 
on obtiendrait des caractères en blanc sur fond blanc lors- 
qu'on utilise PEN 1. 


: la quantité 1 s'affiche sur 60 points graphiques en horizon- 


tal et sur 150 points graphiques en vertical. 


: tracé des graduations sur l'axe vertical. 
: l'instruction TAG permet de positionner le curseur d’affi- 


chage des caractères par une instruction MOVE. 


: tracé des graduations sur l'axe horizontal. 
: dessin de la graduation. 
: faible décalage du curseur graphique par rapport à la gra- 


duation de façon à inscrire la valeur de cette graduation. 
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EXERCICE 4.13 
PROGRAMME 


1Q FEM 
0 REM CÉIBLE D'ERATOSTHENE 





20 REM  HOXOXOXKOK HEOMOX OH HN HOKONOKOMK RKX 

40 SYMEBOL BHO, MOT, RAD, SEA, RTE, 10, RDA, AU RO 

50 REM 

0 REM Trace de la grille 

FO REM 4 XHOOX EE NON HE KOKOICK 

75 CLS 

80 INPUT Entrez um nombre (1-9) s MC 

90 IF Ci1 OR Cr9 OR C£EFINTECC) THEN 80 

100 CLS: FRINT 

110 FOR Ii TO © 

120 FOR Jai T0 C 

3 NEN+I 

FRINT USING CH# "ss 

30 NEXT J 

160 FRINT:FRINT 

170 NEXT TI 

180 REM 

190 KEM Recherche des nombres premiers 

OO REM XX KO OKOKOOH OK OKOKOKOKHOKOKOKOKOKOH HORMONE OK ONOKOKK 

#10 FOR Neil TO CE 

FOR D&2 TO € 

IF CN MOD Di£50 OR DEN THEN 296 

COLEN MOD CiLIGE&INT(N/0) 

IF COLen THEN COLeCs LIGel T1 

IFONEG THEN M#&CHRS C40) +CHRS (240) ELSE M 

ED HCHRS CAC 
AKCOL-E, PKLIG+S: FRINT M# 


















[a 





LOC 
GOT 
NEXT D 
NEXT ON 
LOCATE 1,22:END 
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SOLUTION DES EXERCICES 


VARIABLES 


l,J compteurs 

C nombre de lignes et de colonnes du carré 
N nombre à tester 

D diviseur 

COL colonne d'affichage 

LIG ligne d'affichage 

M$ caractère d'effacement 


COMMENTAIRES 


40 : définition de la croix servant à effacer. 

110-170 : affichage du carré de nombres. 

210-300 :test des nombres. 

260 : le caractère d'effacement contient 1 ou 2 croix selon que 
le nombre à effacer est inférieur où supérieur à 10. 





EXERCICE 4.14 


PROGRAMME 





10 REM 

20 REM ETUDE MUSICALE 

HO REM HX 4CN AOMCK ON KE X 

40 CHAINES: "AREL" 

m0 NEO C1) :æés MAC CS) 4 NEC C4) él 


BQ ENV Let, 1,0, 80,7,2, 8 


FO KEM 

30 REM Farametre de canal 
30 | 
100 CLS 

110 INPUT "Choix du canal OC, E ou OC) 2 "MS CAN 
LA 
120 IF CONSS ETAT AND CANSE EUR" AND CAN ENC" 
THEN 110 

LEO CANETINSTR CHAINES, CANS) 

140 IF NBGCCAN)E=O THEN FRINT:FRINT "La queue 
MCANS" est satures"s:FRINT:GOTO 110 

150 ON CAN GOSUR SE0, 420,4620,710 








ne 


LE OXOHOHON HOMO HE AO KR AX 
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160 FARILE6AHRVECAN 

170 REM 

190 REM Entree de la periode 

190 REM XXKX HAE KE MXENRERAERKE 

200 INFUT "Choix d'une periode (lé a TORE) : 
"NOTE 

210 IF NOTE£17 OR NOTEXZS21 THEN 200 

220 RENM Enregistrement 

REMAKE OO KOKCNCKOKOK OK 

SOUND FARI,NOTE, 100,14,1 

REM 

REM Analyse de l'attente 

REM XX OKOXOHOKOKOKOKONOHOKOKH OK HE X 

GOSUE 800 

REM 

200 KREM Choix # continuer ‘ecouter 

310 REM XX NOHOK KOHONOKONHEHEOMOKONE KOKCHONK OX 

320 FRINT:FRINT 

LEO FRINTSEPRINT Four continuer, tapex ENTER" 
240 FRINT:FPRINT "Four ecouter, tapez une autr 
æe touche" 

TOO ABEINEEVELIEF ASEUM THEN 750 

HOO IF ABECHRSE (LES THEN 70 

| REM 

REM Audition 

REM AH OX NX A X 

FETNT: FRINT 

PRINT M'Oueue A", "Queue BE", "Gueue DC" 

FRINT 

30 WHILE SGCI) EE OK SOC) Er OR SACHErA 
440 IF SQ(1):4 AND (CMIDSCRINS (SC CE) ENS, de" 
1" OR MIDS(CBINS(SC(4),8),5,1)æ"1") THEN END 
ASQ CIF SGC2)=4 AND (MIDECRINS(ISO(1),68),4,1)=" 
L'OOR MIDS CBINS(ISC(4),89),4,13æ"1") THEN END 
480 IF SG(4)z=4 AND (MID CRINS (SG C1) ,81,7, 1)=" 
L'UOOR MIDS CINE (SG CEE) ,5, die" i"; THEN END 
470 FRINT FINS(SQ(1),B8)1,BINE (SO C2) ,8),BIN#(CSO 
L4) ,8) 

480 RELEASE 7 

4$0 WEND 

300 END 

319 END 








En 
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SOLUTION DES EXERCICES 


ACHOHE M NCA SOUS FÉOGRANMES 4 X COX XACX 


Canal À 
KXKXELXX 










INPUT PKendez-vous E €f/N) "REP 
IF REF#="O" THEN 
INPUT Rendez-vous 
IF REF&#&S "0 THEN 








 CÉCDANE RER 


F Canal E 
REMT K OK OACHOX 
RVz0 

INFUT Rendez-vous 
IF REFS&=e"0O" THEN 
INFUT " MCEE VOUS 
IF OREFS&=e"0" THEN 
RETURN 
REM 
REM Canal © 
REM HGHHNNUX 
RO 

INPUT Rendez-vous avec 
IF KEF#4 Q" THEN  KY=8 
INFUT 'éendez-vous avec FH CO/N) "REF 
IF REF#&="0" THEN FVERLUAETE 





A CON) "SHEFS# 





Ma REF 





A COZN) MSREFS 









ÉEM Sous-programme d'etude 
REM des files d'attente 
RER NOK GK NCA AO HOMO OK HE KOKOKOKOKONCK KE 
FEN 2 

8506 NBQCI)E=SQ (C1) MOD & 
660 NEG(S)=S0C2)1 MOD & 
870 NRA C4) E=S0D (4) MOD 8 

FRINT 

FRINT "File d'attente À : MAINS (SUCL),6) 
FEINT TAB(IO) "Flaces restantes : M"NKHOGCI) 
FRINT 

FRINT "File d'attente EF 2: "RINS(SACE),8) 
FRINT TAB CO) "Flaces restantes :  "NEQCE) 





LES 


a] 
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EXERCICES EN BASIC POUR AMSTRAD 





METNS CE CA), Où 
atantes ss MNT C4) 


VARIABLES 

CHAINES chaîne de caractères contenant les réponses possibles 

CANS$ canal choisi 

CAN numéro du canal choisi (1, 2 ou 4) 

A$ touche frappée au clavier 

PAR1 premier paramètre de l'instruction SOUND 

RV valeur précisant le type de Rendez-vous entre canaux 

NOTE période de la note à jouer 

REPS$ réponse 

NBQ tableau des places libres dans les 3 files À, B et C 

COMMENTAIRES 

40 : la chaîne “ABBC” contient les noms des 3 canaux. La lettre 
B est répétée deux fois : ainsi par utilisation de l'instruc- 
tion INSTR, on peut déterminer les 3 valeurs numériques 
1,2 et 4 associées aux 3 canaux. 

50 : au début toutes les files d'attente sont vides et NBQM(I) vaut 
4. 

140 : teste si la file d'attente du canal choisi est pleine. 

150 : la valeur 620 est répétée deux fois, ainsi quand CAN vaut 
4, provenant de la lettre C dans CHAINES, le programme 
se poursuit à la ligne 710 (on notera que CAN ne peut 
jamais prendre la valeur 3). 

160 : calcul du premier paramètre de l'instruction SOUND. L'ad- 
dition du nombre 64 permet de maintenir la note sans la 
jouer (mode HOLD). 

380-490 : audition. 

430-490  : boucle WHILE/WEND : tant qu'il y a des notes à jouer, on 
exécute l'instruction RELEASE (ligne 480) qui libère suc- 
cessivement les différents canaux. 

440-460 : testent si les Rendez-vous sont encore possibles. 

470 :affichage du mot SQ en binaire sur 8 bits. 

520-790 : sous-programmes calculant la valeur de RV. 

810-980 : étude des files d'attente. 
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SOLUTION DES EXERCICES 


850-870 : seuls les trois derniers bits de SQ sont conservés : ils re- 
présentent le nombre de places libres dans la file d'attente 
d'un canal. Pour isoler ces trois bits, il suffit de calculer le 
reste de la division de SQ par 8. 





EXERCICE 4.15 
PROGRAMME 





LE 
20 
50 
40 


perle 








0 PRINT "Four demarrer taper sur C' 
70 PRINT “Pour arreter tab 
90 FRINT "Four Continuer sun CM" 

GQ FRINT "Four re dir € sp sur LL" 

100 FRINT "Four remettre à zero tapær sur 2° 
110 REM 

180 LOCATE 1,10: FRINT MCHRONOMETRE®S 

150 - 

140 


150 








gur GSM 





LE 














ATE 18,10:FRINT "O0" 
INEHEYSe IF Ate"t OR case" C" AND A&i"e 





140 5,1 GOSUER 240 
170 ABRINEEY#:IF A$r"" THEN 170 
180 A#=UPFER 
190 IF A 
200 IF A$="s" 
G 170 

D IF A$="C" AND ELe1 THEN SEC=6E 
IF Afe"L" AND FLel THEN FLeo 
GOTO 170 








Sous-programme d'incrementatior 
HEXKEXE des second HXÉEEKEEXX 
A He CCE CE NOR KE MERE MC NEO GE KE MOCHE OC KE CON 
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AO SECESEC+I 





IF 1 THEN RETURN 
IF SEC:59 THEN GSEC=0 
LOCATE 18,10 








n IF SEC<S10 THEN FRINT USING "OH SET ELSE 
PRINT USING "##"3; SEC 
FRINT CHRE (7) 
RETURN 
VARIABLES 
A$ touche frappée au clavier 
FL drapeau indiquant que la touche S a été frappée 


SECI,SEC valeurs des secondes 


COMMENTAIRES 
180 :transforme la réponse A$ en lettre majuscule. 
190 : si A$ égale “Z”, on retourne à la ligne 130. L'instruction 


CLEAR remet les variables à 0 et arrête les interruptions. 

200-220 :si la touche S a été frappée (arrêt du chronomètre), FL est 
mis à 1. Toutefois, le sous-programme d'interruption 
continue de fonctionner. Aussi le programme conserve 
dans SECI la valeur du chronomètre au moment de l'arrêt. 
Si alors la lettre C est frappée, le sous-programme d'inter- 
ruption reprend avec cette valeur. Si la lettre L est frappée, 
le sous-programme d'interruption continue avec la valeur 
courante SEC. 

250-350  : sous-programme d'incrémentation des secondes. 





330 : si le nombre des secondes est inférieur à 10, l'affichage de 
la valeur est précédé d'un 0. 
340 : chaque seconde passée est ponctuée d’un son. 
EXERCICE 4.16 





PROGRAMME 


19 REM VALEURS DECIMALES DE 
20 REM L'INSTRUCTION SYMEOL 
20 REM CN XONOCHACNONCHENKONCHKONCHCKKX 
40 [NE 0,0 
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SOLUTION DES EXERCICES 


Jo REM 

£ REM Symboles d'affichage 

70 REM AR OC 

60 SYMEOL RAS, RFF, M61,%01,881,%01,%01,881,8FF 
90 SYMEOL RHO, RFF, RFF BPFFS@BPES SPF SMFES SFR UFE 
100 CLS 

110 FRINT TAR(I1) "Valeurs décimales": FRINT TA 
B(8)"de l'instruction SYMBOL" 

120 FEINT 

150 PEN 23FRINT "Four allumer ou eteindre un 

pave", "utiliser la touche COFY" 

140 FRINT "Four changer de casa, utiliser ","i 
es touches de deplacement '!":FEN 1 

190 REM 

160 REM Initialisation des Casas 

170 REM XX EX OKON OKON KOHOKOK OKON NOK KE XHCX 

180 FOR lei TO 8 

190 FOR Jei TO 8 

200 CASE CT, Jet 

Æ NEXT J,I 

REM 

REM Fresentation de la grille 

REM OK HOX OH OHONCKOKOHOKOHOKONE NOK HEONOHKONK KOKOXX 

LOCATE 1,10 

FOR Jei TO 6 

FÉINT TAB (16) STRINGS (6, CHR (248) ) 

NEXT J 

XG=1é: YH=10 

REM 

REM Acquisition d'une touche 

REM 4 HR KO OKON MON OK HOME OK OKON NE NONKOXCHX 

LOCATE XG,YH 

A=INÉEYS 

IF A&eUU THEN 540 

AASC CAE 

IF &&lE THEN 450 

IF A=240 THEN IF YHS#10 THEN YH=YH-1s GOTO 





IF A=SA4L THEN IF YHE17 THEN YH=YH+1:GOTO 


IF A=242 THEN IF XG:16 THEN XG=XG-1:G0OTO 
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EXERCICES EN BASIC POUR AMSTRAD 





HLOQ IF GESAS THEN TF XGESS THEN XGexG+1i: GOQTO 







HEC FRINT 
440 GOT(T 
REM 
REM Determination des valeurs 
REM OXCHOOHEOKOK OK OHOKOEOEOKOMONOKOM HOOHOK KO OK X 
FOR Teil TO 8 

L(ID)EeC 

FOR Je1 TO 8 

AGE QI, Ie C1+CASE CI, I) )/2 

L. 6 LT) LL CT) HOASE CJ, Done (8) ) 
NEXT J 

NEXT TI 





REM Affichage de la quite 
FE PT OHONOXKONOKKCHOHEK OM ON OK EEK 
LOLATE 1, #0 
FRINT "SYMEOL KXXX": 

FOR Iæi TO 8 

FRINT M, CMIDS CSTRS# CL CTI) is 

NEXT I 

FEM 

REM Affichage du svmbole 

FEM  HOHOXOHOH ROMA RON HOKONEOK HN X 

SYMECIL. - CINE CSD LL CD LCA LOS) ,L(E&), 
(7,1. (9) 

& 70 LOCATE 26,14: FRINT CHKS (2489) : 

680 LOUCATE 1,2%: END 




















VARIABLES 


1,J compteurs 

XG,YH coordonnées d'une case de la grille 

A$ touche frappée au clavier 

A valeur ASCII de A$ 

CASE tableau contenant l’état d'une case (—1 : éteint, 1 : allumé) 
L tableau des valeurs décimales de l'instruction SYMBOL 
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SOLUTION DES EXERCICES 


COMMENTAIRES 
80, 90 : définitions des caractères graphiques “CASE VIDE” et 


“CASE PLEINE”. 


160-210 :initialisation du tableau CASE à —1. 
230-280 : dessin de la grille. 


290 


: positionnement sur la case en haut à gauche. 


380-410  : déplacement dans les limites de la grille. 












420 : l'appui sur la touche COPY change alternativement l'état 
de la case désignée. En effet l'élément CASEI,J) vaut al- 
ternativement —1 et 1. 

430 : affichage de l'état de la case : si CASE(I,J) vaut —1, la case 
est allumée (pleine) et si CASE(I,J) vaut 1, la case est éteinte 
(vide). 

520 : détermination de L{l). 

610 : suppression du caractère “ESPACE” qui précède la chaîne 
de caractères STRS$(L(1)). 

670 : affichage du caractère graphique en vraie grandeur. 

EXERCICE 4.17 

PROGRAMME 

10 REM 

20 REM ORGUE ELECTRONTOLUE 

FO BEM  4CXk KO OK GOMOEOKOKOK HOCHONONON X 

#40 DIM NOTE (50) 

50 ON BKEAE GOSUE 400 

80 SFÉED KEY 1,1 

70 TCS="LETA4SS7OWERTYUASDEFGHIJZXCVENNM" 

80 CLS 

GQ LOCATE 10,8:FERINT "ORGUE ELECTRONIQUE" 

100 FRINT: FRINT MQUATRE GAMMES + 0" 

119 LOCATE 17,128: FRINT "12354567" 

120 LOCATE 17,12:FRINT "OWERTYU" 

LEO LOCATE 17,14:FRINT "ASDEFGHJ" 

140 LOCATE 17,15:FRINT "ZXCVENNM" 

150 REM 

160 REM Lecture des periodes 
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RE ON KO OHON OKON NCHOKOHOXOHONOHOH NCHX 
FOR Ixi T[D 25 

READ NOTE (TI 

NEXT I 








Bsquisition d'une touche 


OM HOXKHOKOKCK KE OKCHONOK CEE KO AUX 
ASS=INEEVSLIF ASE" THEN 240 


FERS (CA) 





A$=LF 















TEÆTR TRCTCS, A#) 

VF Ie THEN #40 

SOUND 1,NOTE CI), 

GOTO 240 

REM 

REM Valeurs des pericdes 

REM RODPENEANTER ER PPERERE 

DATA P56,881,756, 7/16, à 10 
DéiTéi 4 : : TE PSE 


DATÉE 
DATÉA 119,106 
EM 





REP Retour af ERE 
REMAKE OOEHOHOK MON HONENK AN 








400 SPEED EEY AO 


410 END 


VARIABLES 
NOTES tableau des 28 périodes des notes choisies 


TC$ chaîne de caractères contenant les lettres des touches choi- 
sies 

indice d'une note 

A$ touche frappée 

COMMENTAIRES 

50 : le programme est interrompu par 2 appuis sur la touche 
BREAK et se poursuit en ligne 400. 

70 : TC$ est constituée des 28 lettres des touches situées à 
gauche dans les 4 rangées du clavier. 

60 : la vitesse de répétition des touches est mise à sa valeur 


maximale (1 cinquantième de seconde). 
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SOLUTION DES EXERCICES 


260 : représente le rang de la lettre de la touche frappée dans 
TC$. 

400 :il est important avant de sortir du programme de remettre 
la vitesse de répétition du clavier à une valeur plus pra- 
tique (essayer par curiosité d'utiliser le clavier, après avoir 
exécuter l'instruction de la ligne 60). 





EXERCICE 4.18 


PROGRAMME 


10 FEM 

29 REM FROGKRANME D°&DDITION 

HO REM KO KONOK HE KOROXONON HOCHOEONX 

AO CINE QITSINE LE: INE LG: INE 18,17 

0 ORKGE=IS 

ét MODE 1 

70 FAFER O:FEN 1 

80 LOCATE 1,10 

90 FRINT "Entrer deux nombres, compris entre 

[e) et" 

100 PRINT "1000, separes par une virgule et a 

ppuver" 

110 INPUT Meur La touche ENTER 3 MNOI) SN CZ) 

120 IF NO1)EO OR N(1)#1000 OR NCH)EO OR NC) ES 

1000 THEN 40 

1350 RENM 

140 REM Fassage en MODE © 

190 FEM OX HOXXKONK NCA OK OHONOXOKONON KE X 

160 MODE © 

170 FRINT:FRINT UÉROGRAMME D*ADDITION" 

180 WINDOW #1,1,20,20,%5 

190 FÉFER K1,2:PEN #1,1 

200 CLS #1 

210 FRINT HI: FRINT #1, "Four afficher le 
resultat", " d'une colonne", " taper sur 1 

a barre" 

LEO LNIELENCSTERS (N C1) ))-1 

220 LNEELENCESTRS (N CH) D) —1 
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LAMAXEMAX CLIN, LND) 
FOST1e0RG-1LNI 

&( DRG-LNE 
EeMINCFOSI1, FOSI2)-E 
TRALTS=GTRINGS (MAX (LAN, LNR) +5, "_1) 
LOCATE FOSI: : F NC1) 

LOCATE " 

LOCATE NC) 

LOCATE 5, 1H: FRINT TRAITS 
FOSIS, 15: PRINT er 































REM Determination des chiffres 
HEM qui constituent  N1 &t N? 
REP KE NOK NOHOOK HENOE HO KE KO CON K 
FOR Jx1 TO ?% 

FOR Tel TO LNMAX 

CCI, Di&NCJ) MOD 10 

NOTE (NC) -C (JT, 1) )/10 

MEXT I 

NEXT J 

REM Addition gen colonnes 

REM  HOGHO KOK HOMO KE KE KHN Xe 
RETENUE #0 

1 L TO LNMAX+1 





2) THEN 480 
2, 1) +RETENUE 
MID 10 

AUX-RES) /10 

5-1, 1S:PRINT STRS (RES) ; 

ER :Q THEN LOCATE ORG 
STRS RETENUE) : PEN 1 

IF ISLNMAX AND RETENUE=0 THEN 570 
: 










£Q0 PRINT KI ENTER pour arreter" 
610 PRINT #1 

GC FRINT HI,"C pour continuer" 

HO ASEINÉEYS 

GAQ OTF AE THEN 870 
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&aQ IF 
&6Q IF 
&7Q INE 


880 MODE 


o PAPER G:FEN 1 





5 
700 END 


SOLUTION DES EXERCICES 


ASE THEN 60 
FE 





CHRSE (1:50 
GLATINE 1,6 
1 


THEN &50 


VARIABLES 

ORG variable 

N(1),N(2) nombres à additionner 

LN1,LN2 longueurs de N{1) et N(2) 

LNMAX maximum entre LN1 et LN2 

POSI1 position de N(1) 

POSI2 position de N(2) : 

POSI3 position des signes opératoires (+, =, trait) 

TRAIT$ chaîne de caractères utilisée pour tirer un trait 

l,J compteurs 

C(J,1) tableau contenant le Jième chiffre du lième nombre 

RETENUE retenue sur une colonne 

RES,AUX variables 

A$ touche frappée au clavier 

COMMENTAIRES 

40 : l'encre 3 clignote (vert/gris). 

220, 230 : calcul du nombre de chiffres de N{1) et N(2). On remarque 
que STR$ fait précéder la chaîne d'un “espace”. 

380-430  : calcul des éléments de C{J,l). 

400,410 : l'opération N(J) MOD 10 calcule le reste de la division de 
N{(J) par 10. On réitère l'opération par décalage sur le chiffre 
des dizaines puis celui des centaines. 

460 :initialisation de la retenue pour les deux premiers chiffres 
à additionner. 

470 : le compteur va de 1 à LNMAX+1 car le résultat de l'addi- 
tion peut comporter un chiffre de plus que le plus grand 
des deux nombres à additionner. 

550 : si l'addition dans la dernière colonne est effectuée et que 


la retenue est nulle, on sort de la boucle. 
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EXERCICE 5.1 





PROGRAMME 
10 REM 





0 TIR ALEATOIRE SUR 

F0 REM UNE CIBLE GRADLEE 

HO RER NOK HKOAOONNOK ACH NON ON 

5o CLS 

60 REM Valeurs initiales 

70 RE XXXXKEKAEXEEXNEXEXX 

80 COUPE. 1 

SO OINE O,IEsINE 1,26: 1INE RSS: INE 5,0 
WINDOW #0,1,40, 4,24 

F à F E FX 7 

CLS 

KREM 

LéO REM Dessins des cases 

150 KEM KkRkde la ciblex*x*x 

LéQ REM  XKMCXK CON NOK OK KO OK K 

170 FOR Izi TO 6 

180 WINDOW HI, GXI-E, EKI+E, 1, 

190 Ezl-B:Ce1+R: FAFER HI,C:CLS #TI 
200 FEN HI, Z%:LOCATE HI, EF, 2: PRINT KI, Is 
3 NEXT TI 

WINDOU #7, 1, 40 ES, ES 

FAFER #7,0 

PEN #7, 

FEM 

RENM Entrées d'une touche 

REM OKXAXXKXEXEXXEXEENXEXX 

CLS 

COLUF=COURF+ 1 

IF COUPFSSRO THEN 470 

FRINT #7, "Jeux s!"sCOUF:"KXKXX Score :"3SC 











AH=INÉEVS: IE A$="" THEN 320 

IF A#=<CHR# (15) THEN 510 

IF ASSHCHRS CHE) THEN 320 

X= INT (640XRND) :FLOT X,26,1 

FOR Je0 TO 1: DX&INT (OOKRND) 44: XæeX+DX: FL 
O,0,2:DRAWR O,-10:PLOTR DX,10,1:DRAWR ©, 1 
GrNEXT J 
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570 
F80 
E90 
400 
410 


450 
450 
440 
450 
460 
470 
480 
490 


SOLUTION DES EXERCICES 


FRINT CHARS (7) 
REM 


REM Calcul du nombre de points 
REM KO HO NOK OK OKON OKOHHKH CHEN XK 
IF X£E2 OK X5008 THEN FOIN&O ELSE FOINEIN 
TCCX-HE) /96) +1 


SCORE=SCORE+FOTN 

GOTO 250 

REM 

REM Affichage du resultat 
REM CH XOK OX OKON OHCKOKONE NONONOKOKK XX 
WINDOW #7,1,40,24,75 

CLS #7 


FRINT #7, "XKXXNombre de Couns 


Nombre de points 5 "5 SCÛRE 


WIR a) 
10 
YA ©) 
eiRTa) 
2140 
MENT) 
60 
D 70 


00 


IF INÉEYS#æ THEN 500 
REM 

REM Valeurs de retour 
REM OKAEXEXMEXEXEMEXNEMEX 
LNH O1 INE 1,24 
WINDOW 1,40, 1,25 
FAPFER CI FEN 1 

CLS 


END 


VARIABLES 


| 
B,C 
POIN 


compteur 
variables 
valeur de la case touchée 


SCORE score 
COUP nombre de coups joués 


X 
DX 
A$ 


position horizontale du projectile 
écart horizontal 
touche frappée au clavier 


COMMENTAIRES 


140-210 


EUR COUF, XX 


: affichage de la cible. CLS#I efface la fenêtre de rang | dans 


la couleur C de PAPER #1. C prend alternativement les 


valeurs 1 et 2. 
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EXERCICES EN BASIC POUR AMSTRAD 








310 : affichage du score et du nombre de coups joués dans la 
fenêtre 7. 

350 : affichage de la position de départ du projectile par l'ins- 
truction PLOT. 

360 : l'effet de mouvement est obtenu par effacement et affi- 
chage successifs du projectile. Ainsi PLOTR 0,0,3 et DRAWR 
0,-10 effacent la dernière position du projectile (couleur 
noire) et PLOTR DX, 10,1 et DRAWR 0,10 dessinent le pro- 
jectile dans sa nouvelle position. 

410 : calcul du nombre de points marqués. POIN est déterminé 
en fonction de la position horizontale du projectile au mo- 
ment de son impact avec la cible. Si X est inférieur à 32 ou 
supérieur à 608, le projectile sort de la cible, sinon INT((X- 
32)/96)+1 donne la valeur de POIN. 

EXERCICE 5.2 

PROGRAMME 


19 FEM 
Po REM 
%O REM 
REM 
REM 










INF 


FEM v 
FEM HAE AA CCC ACC OK 
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SYMBOL 
D, 153. 2 l 
WINDOW #1, 1,40,1,4 
WINDOW 1,4, T 





âf+tict 


JEU DU GLOUTDN 
LERETSRESSSSSS 


Valeurs initi: al LE 








#1 : se He 


de La piste 
*X 








SOLUTION DES EXERCICES 


220 LOCATE H1,17,2:FRINT #1, "GLOUTON" 

220 FRINT #1,'"2Z vers le haut'SFEO CRI vers le D 

ag! 

40 LOCATE HE, 15,3 FRINT HE, CSCÛRE « 3 SUORE 

20 FEN Z:CLS 

240 NIVENTU-T 

2F0 IF NIVEI THEN NIYEæ1 

290 IF ONIVES THEN NTYeS 

290 FOR I: TO OIGHEXNIY 

00 É (OIeE 

10 LOCATE KX,Y:FRINT CHAR C1L4%i 

He NEXT TI 

HEO IF INEEYSe"" THEN FE0 

340 REM 

HO REM Debut du jeu 

HéO REM XXE KA X 

270 FEN € 

FE Kels VeTINT CéKEND) +10 

290 LOCATE X,Y: PRINT CHRS(ESO ;: 

400 DY=0 

410 AS2UFFERS CINEEY#) SIP ABz"" THEN 440 

AO IF ASEUNT AND Y£17 THEN YeY+1:DY=1l:GOTO 440 
HO IF Aga="2Z" AND Yi THEN YaY-1sDVæ-1 

440 Kex4+1 

450 FEM 

460 KEM Test de collision 

470 REM XXKXXEXEEXEXEXEXX 

4BOQ VYGREG I CVY+HEN XL Obs XG=LÉXX-S 

490 IF TEST(XG, YG)EæeS THEN SOUND 1,120, 40, 12: G0OTO 
240 

200 LOCATE X-1,Y-DY:FRINT "M "3 

9310 LOCATE X,Y:iCsi-C: FRINT CHRS& CESO+0C) : 

HO IF CeQ THEN FRINT CHARS (7) 

BEO IF X240 GOTO 400 

540 SCORE=SCORE+NTY 

SO NIVENTV+E 

60 GOTO 240 

J70 END 

HeQ REM 

J90Q REM Retour 

800 REM KXKXXKXX 

410 SPEED KEY 10,2 
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EXERCICES EN BASIC POUR AMSTRAD 





INK 1,4 


VARIABLES 
compteur 
A$ touche frappée au clavier 


NIV niveau de difficulté 

X,Y coordonnées d'affichage 

DY déplacement vertical relatif du glouton 

NC nombre de coups joués 

SCORE score 

Le variable 

XG,YG coordonnées du point graphique 

COMMENTAIRES 

70 : l'instruction ON BREAK permet de continuer le pro- 
gramme à la ligne 580, après deux appuis successifs sur 
la touche BREAK. 

100-110 :le caractère 250 représente le glouton la bouche fermée, 
et le caractère 251 représente le glouton la bouche ou- 
verte. 

270 :le niveau de difficulté est défini par la variable NIV qui 
prend ses valeurs entre 1 et 5. 

290-320  : positionnement des obstacles dans la zone de jeu en nom- 
bre proportionnel à NIV. 

400-430 : analyse de la touche frappée au clavier. Si la chaîne est 
vide DY=0, si la chaîne est Z DY=-—1 et si la chaîne est \ 
DY=1. 

480 : calcul des coordonnées en mode graphique du point situé 
en avant du glouton. 

490 : si le point de coordonnées XG et YG est de couleur ma- 
genta, cela signifie que le glouton touche un obstacle. 

500-510  : déplacement du glouton. L'effet de mouvement est obte- 
nu en affichant en position (X-1) un espace (glouton éteint) 
et en affichant en position X alternativement les caractères 
graphiques 250 ou 251. 

550 :le niveau de difficulté est augmenté à chaque traversée 
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réussie et diminué en cas d'échec. 


SOLUTION DES EXERCICES 


590-650 :Il est important de rétablir les valeurs 10 et 3 dans l'ins- 
truction SPEED KEY, avant de sortir du programme (Es- 
sayez d'utiliser le clavier avec les valeurs 1 et 1 !!). 





EXERCICE 5.3 


PROGRAMME 





REM 

REM LOTO 

REM XXE 

FEM Valeurs initiales 

REME K NX HONOR CN HO ACC KM 

SYMEQOL SO, HOI, HAR, RUA, RAG, RIG, ME, HAE, RO 
65 CLS 

INE O,Z4:INÉ 1,6:INK R,1Z:INE 5,19 

WINDOUW #1, 40, 1, 
PAPER Ss FAPER #1, 2: FAFER KE, © 
WINDOW HE, ISSU, ES 
PEN HL,<Ss PEN HE, 1 
CLS: CLS #1 

LOCATE #1,1,10 
PRINT #1, "Four obtenir un’ 

FRINT #1, "autre tirage" 

FRINT #1,"taper une touche" 

FRINT #LsFRINT #1, "Four arreter" 

PRINT #1, '"Laner ENTER" 

REM 

REM Trace de la grille 

RE KOCXK CHOEUR OHOMOKCE KO OKHK 

CLS HS 

PEN HD, Se PRINT HE, CHRS CLASS) CHARS C1) s FEN KE 











FOR JeO TO 9 

#0 FOR I1=0 TO 4 

260 IF I=0 AND Je0 THEN FEN #E 
AS) +CHRSE C1 A4) 3 2 PEN HE, Le GOTO €80 
270 FRINT HE, STRSCIOXI+Tis 





219 


EXERCICES EN BASIC POUR AMSTRAD 


280 NEXT I 
290 PRINT Hs FRINT Hé 
3200 NEXT J 






EM Choix de & nombres aleatoires 
ù REM XGA KO CH ONOMOE HONCEOK MO NE KREXEENXEX 

H40 NL CL) ÆINT CAGXKENDO +7 

2650 FOR Ie T0 6 





NEXT 
410 KEM 

0 REM Affichage du tirage 
A NOHCHONK EXC AK 





COQ REM XXXEXXXX 
440 FOR Teil TD 6 

450 UNTEÆENU CT) MOD 10e DT Ze (NU CT) UNIT) 2/10 
460 © DIZe0 THEN SUPER" MA4CHRS CESO 





470 LE TE PE , HE, SUP: 
480 NEXT IT 

490 GBEINEEN SES TIF AB OTHEN 490 

1 IF. ASSTCHRSE CE) THEN 200 

190 REM 

n FREM Retour 

HR X 

D UNE O1, 4 

Ft Ga PEN 1 


60 











VARIABLES 


1, J compteurs 

PT pointeur de position d'affichage 

NU tableau des tirages dimensionné implicitement 
DIZ chiffre des dizaines 

UNI chiffre des unités 

SUP$ chaîne de caractères, utilisée pour cocher 

A$ touche frappée 
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ELSE SUP#=C 


SOLUTION DES EXERCICES 


COMMENTAIRES 


200-300  : affichage de la grille du loto. 

260 : le coin en haut et à gauche est omis. 

320-400 :tirage des 6 numéros. 

370-390  : comparaison du numéro tiré avec les précédents déjà tirés. 

420-480 :les numéros tirés sont cochés sur la grille avec une ou 
deux croix suivant qu'ils sont compris entre 1 et 9 ou entre 
10 et 49. 

450 :le chiffre des unités de NU(I) est obtenu par le reste de la 
division de NU(I) par 10 ; c'est le calcul qui est effectué par 
l'instruction MOD. Le chiffre des unités est ensuite utilisé 
pour calculer celui des dizaines. 

470 : la position horizontale sur la grille du numéro tiré est cal- 
culée à partir de DIZ. Sa position verticale est calculée à 
partir de UNI. 





EXERCICE 5.4 


PROGRAMME 

10 REM 

20 REM CALCUL MENTAL 

O0 REP HACK OXOK OK NOM OK CKOXK 

40 CLS 

0 ET:SPFEED KEY 100,100 

&0 SIGNOF SE M4" 

FO MESSISe "Vous calculez vite et bien" 
80 MESSESée "Vous calculez vite mais mal" 
9Q MES: "Vous calculez trop lentement” 








100 MESS4$e "le resultat est : " 
LLO MESSS#SCHRS (10) <SPACES (125 +CALCUL MENTAL. 


Séôéte"Pour arreter, tapez sur ENTER" 
578=" Four continuer Lapez sur CO" 






LEO REM XX HR CACHE OI X 
170 INÉ OSO2INE 1,2S2INH PAG: INE 3,76 
180 WINDOW #1,1,40,1,15 
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EXERCICES EN BASIC POUR AMSTRAD 


190 WINDOW #2, 1,40, 16, 25 

200 FAFER #1L,O:FEN #1,1 

S10 FFER HS, PEN #K2,5 

D CLS HILICLS #2 

HO FRINT H1,MESSSS# 

40 ORDER 4 

210 REM 

280 REM Tirage aleatoire de l'opération 
270 REM RER A ER REEAREAMRRRRERRER ER 
290 | 
290 
#00 








Ë SIGNOFS,OPFE, 1) 
ON DFE GOSUE J00, 610, 560 
LOCATE #1,10, @: FRINT Hi, QALSOPESS ES" = " 
FLE 








250 AFTER 600 GOSUE 710 
60 GOSUR 760 Saisie de la reponse 

APQ IF KHEFE"-" OR REPSZ&U4N THEN REFONSE#OQ El. 
SE REFONS Al. (REF) 

IF Flel THEN MAS= MESSES: GOT 410 

IF REFONSESRES THEN 


















LE: GOTO 





(A « PPRLUEE Hé, MESSA4#:RES 
PRINT Hs FRINT #2 

FRINT HD, MESS OS : PRINT KH£,MESS7# 
ABEINÉEYSET qu  . " THEN 440 

IF ASECHES (12 THEN 460 

IF AS="C" OK Ag="c" THEN 20 
GOTE) 40 








Retour 

REM XXXTEXX 

A Da LINE 1, 4 
FER O:FEN 1: BORDER 1 





ED HEY OS 





M &ddition 
O0 REM KEXXXKEX 
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6.) 
40 
6530 
660 


Le 
Cr Le 





500 
810 


LL 


80 





g40 


STE 
260 
1 





870 
[SET 
EN 


890 





SOC 


REF#)-TL):LOCATE &1, FOS CH1) 1, VF 


ARE 


SOLUTION DES EXERCICES 






Se l+A 

LE TURN 

REM 

FEM Soustraction 
REMAKE HAN KCKOUCX 
RESG=A1-AE 

RETLIFN 

REM 

RER Multiplication 

FES HOME HHAEHEAOONCHHOKONCHKCK 
EGeALkAE 

RETUFN 

REM 

REM Ténps ecoule 

NAUR ESS S22722: 

Fls ] 

RETURN 

REM 

REM Saisie de la reponse 
REM XXX#Xpar  INFEYEXXXXX 
REM HO EOROICHHOK CHEN AC HEE HOKKK 
REF 00 

IF Flel THEN RETURN ELSE A$eITNEEY&s TE Gt 












THEN 810 


IF OASeCHRS (LE) THEN RETURN 

IF CASEMON OR ASENGN) AND ARE EU AND Gé 
TH 810 

REF#SRERE4+ASE 

FETNT #1, A$3 

IF Flel THEN RETURN ELSE ASeINEEVS: IE A&z 








THEN 8460 


IF AF-CHRS (15) THEN RETURN 
IF CAS£"O" OR A#:"9") AND A$<:CHRS (127) T 
860 

IF A$=CHR$ (127) AND LEN(REF#) #0 
IF A$=<CHR# (127) THEN REF#&LEF 







310 
“t, LEN( 

: .) "HINT # 
Mas LOCATE #1,FOS CH1)-1, VFOS CHI) IF LEN CRE 





F#H)=0 THEN 810 ELSE 860 


910 





REFSE=RERF 4 
FRINT HI, AS: 
GOT 5460 
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EXERCICES EN BASIC POUR AMSTRAD 
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VARIABLES 
SIGNOP$ 


ME1$, ME2$, ME3$, 
ME4$, ME5$, ME6$ 


variable alphanumérique contenant les 3 
signes opératoires 


différents messages possibles 


A1, A2 


opérandes 


OPE code de l'opération (1:addition, 2:sous- 

traction, 3:multiplication) 

OPES$ contient le symbole de l'opération 

RES résultat de l'opération 

REP$, REPONSE réponses du joueur 

MAS variable 

FL drapeau indiquant que les 10 secondes sont 

écoulées 

A$ touche frappée 

COMMENTAIRES 

50 :activation des interruptions. SPEED KEY permet ici d'évi- 
ter les répétitions lors de l'appui sur les touches. 

320 : suivant la valeur de OPE (1,2 ou 3), le programme poursuit 
à la ligne 560 (addition), 610 (soustraction) ou 660 (multi- 
plication). 

340 :initialisation du drapeau. Si FL=0, le temps écoulé pour 
donner le résultat est inférieur à 10 secondes. 

350 : au bout de 10 secondes (500 cinquantièmes de seconde), 
le sous-programme (lignes 710-750) est exécuté. 

360 : l'apostrophe (forme abrégée de REM) est utilisée ici pour 
introduire un commentaire dans la ligne. 

370 : si REP$ se réduit à l’un des deux caractères “+ ou —”, 
l'exécution de VAL(REP$) provoque une erreur. 

380-430 : la réponse d'AMSTRAD dépend du résultat de la compa- 
raison de FL à 0 et 1, et de RES et REPONSE. 

740 : le drapeau FL est mis à 1 lorsque le temps écoulé dépasse 
10 secondes. 

760-930 : saisie de REP$. 

810-830 :entrée du premier caractère de REP$. Ce caractère peut 
être un chiffre (0,1,2,..,9) ou un caractère de signe (+, —). 

860-900 :entrée des autres caractères de REP$. Ce caractère peut 


être un chiffre ou celui de la touche DEL. Si la touche frap- 
pée est DEL, le dernier caractère entré au clavier est effacé 
et la chaîne REPS$ est réduite. 


SOLUTION DES EXERCICES 





EXERCICE 5.5 


PROGRAMME 






2 FEM MACHINE À SOUS 

50 KREM St Aid 
4 SYMEOL ; EC 
50 SYMEOL 
&Q SYMECL . : 

70 REM Valeurs nie 

80 REM C4 k NOACK ONE KOKOK OM OHOKOK NOK 

GQ MODE Q 

100 INE OSBAIINE L'ESINE 2,26:INE SG: INE 4,0 
LINE SIT: INE 6,18 

119 BORDER LE 

120 FAFER 4: CLS:FEN 0 

LEO WINDOW #1, 173 ee 

140 FAFER #1, : FEN #1, 

150 CLS #1 

160 WINDOW H2,68,:8:7:8 

170 PAPER #8, 4: CLS #£ 

180 WINDOW #E,10,10,7,8 

190 PAPER #E, 42: CLS . 

WINDOW H4,12, 1%, 7,08 

FAFER 44, 42 CLS #4 

WINDOW #5, 1,40,20, 25 

PAPER HO, 4: PEN #9, 

WINDOW #6, 15, 20,10,12 

FAFER RG, 4iCLS Ré: FEN #6, 6 

SCORE=0 

REM 

REM Dessin de la machine 

mon REM KO KE ONCON OKON KE X 

200 FEINTS:FEINT TAB(7) "JACEFOT" 

510 FRINT #45,"Four arreter": PRINT #5, tapez E 
NT ER" 

3 FRINT #S 

ECO PRINT 45, "Four continuer": FRINT HE, "ESDEZ 
une touche" 

“40 LOCATE Hi, LOS PRINT #1, MERS US 
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FEN #I+1,1 








E90 
400 NMEXT TI 

EM 

BEM La machine tourne 

REM XX CH ONOMOOX KO EMNEMXX 
AE=INÉEVSSIE AS" THEN 440 
IF AG=CHRE CITE) THEN 790 

L TO 10 
























FOR I= 





FOR Jæei TO 3 

FIG CJ) INT (RNDX9) 
COLEFIG(J) MOD Z:CARSINT (FIG CI) 
PEN HJ+1,C0L+1: PRINT R$ 


SOUND L, 4e 











MOD Le CAB INTCETE CT) 4 


HI +1, CHERS CES 















JÉE+FCIINT 
USING "HER" SCCRE 
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SOLUTION DES EXERCICES 


FEU FRINT #&  DSTNCG AREA" s POINT 


GOT 4160 
REM 


REM Retour 


B10 REM KHMXXX 





RO 


40 EC 


Bo 


ES 
Le TL 





INE QUAI INE 1,24 


VARIABLES 
l,J compteurs 
FIG tableau des trois chiffres représentant la combinaison tirée 


POINT gain d’un coup 

SCORE gain d'une partie 

COL couleur de la figure à dessiner 

CAR numéro de la figure à dessiner 

A$ touche frappée au clavier 

RES nombre représentant la combinaison tirée 

COMMENTAIRES 

280-400  : dessin de la machine à sous. 

350-400  : dessin des trois fenêtres. 

460-540  : avant l'affichage final, la machine effectue dix rotations. 

550-580  : le dernier affichage est répété car les fenêtres contiennent 
des symboles doublés. 

630 : RES se calcule par la formule : 
FIG(3)+ 10XFIG(2)+ 100XFIG(1) 

640-700  : étude du gain d’un coup. Par exemple, la configuration qui 
donne 1000 points, est représentée par le nombre 876. 

720-780 : affichage du résultat. 


Remarque : pour les mauvais joueurs, il est possible de gagner plus 
souvent en réduisant le nombre de couleurs. 
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EXERCICES EN BASIC POUR AMSTRAD 





EXERCICE 5.6 


PROGRAMME 








ACER NOK OK OK HER HE NC HEONE 
# EL OU FENDE] * 
ACER HE NC AOC KE KEXKX 








Lire” 






EE | f 
BICPE TETE 
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SOLUTION DES EXERCICES 








Dessin de la grille 
X du mot cache * 
do ne EC 
xs TO L.M 

Us, LOS PRINT CHE 











Saisie du mat joue 

1 AOHA KOX AREA EUMAUXAXE 

Hi, "Quel egt le mat ss " 
PRINT H1 

FPE 1, "Nombre d'e 















HE, "MU, MOTES 


MOTEH= VE TN" “THEN 10 
LERICMOTPF#) EE CLM THEN Géo 


Recherche des lettres 
bien placees 

AH IC MACI  AC CIIC EX 

l=i TO LM 

LARCToel THEN 490 
MIDE CMOTES, L, 1) MID (MOTIFS, LL, 1) THEN 
Le LOCATE EXT, 10: PRINT MIDS (MOTFS, I, 1) 
CT TI 

RLe MOTPFS&E GMOTIRS THEN 60 
F10G KEM 
F0 FENM Fin d'une partie 
RE HOACKOMCH KOKOHC AK AOHOK Æ HOK 
CLS HIsCLS Hs CLS Hs PRINT HIS VOUS avez 
QUYE en" s NEC: "coups" 
CINÉENSS IF Agent" THEN 7 
760 IF ASE SECHERS (LE) THEN 190 
PAU OINE Ds INE 1,24 





IF 
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EXERCICES EN BASIC POUR AMSTRAD 









DU #1,1,40, 


RE M 
DAT ee 
DéTé FUSEE 
DATA MAMAN, CONE, 





#i: CLS 





flo "Le Mot che est s "es MOTIRS: 





Mots 
Es par FIN 
MATTI ITS 









EVA AEURE 





une 


VARIABLES 

NBC nombre de coups joués 

TT compteurs 

A$ variable alphanumérique 

NBMOT. nombre de mots dans la liste DATA 

MOTIR rang du mot caché MOTIR$ dans la liste DATA 

MOTIR$ mot choisi au hasard dans la liste DATA 

LM longueur de MOTIR$ 

PCAR tableau contenant les drapeaux indiquant les lettres trou- 
vées 

MOTP$ mot proposé par le joueur 

COMMENTAIRES 

260-270 : boucle servant à obtenir une durée d'affichage à l'écran 
de dix secondes. TIME est une horloge interne de l'AMS- 
TRAD qui s'incrémente tous les 3 centièmes de seconde. 
Pour compter 10 secondes, il faut donc tester si 3 000 in- 
crémentations ont été faites (ligne 270). 

320-370 :tirage aléatoire de MOTIR$ dans la liste. 

420-480 :zone d'affichage du mot à découvrir. Dès qu'une lettre est 
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découverte, elle est affichée à la position qu'elle occupe 
dans le mot à découvrir. 


SOLUTION DES EXERCICES 


580 : acquisition du mot MOTP$. 

630-690 : comparaison du mot MOTP$ et du mot MOTIR$. 

680 : si la lettre en position | est bien placée et qu'elle n'a pas 
été déjà découverte (PCAR(I)=0), elle est affichée et PCAR(I) 
est mis à 1. 

700 : si toutes les lettres sont découvertes, le joueur a gagné. 

870-940 :liste des mots sous forme de DATA, terminée par le mot 
réservé FIN. 





EXERCICE 5.7 


PROGRAMME 


REM 

REM TELECRAN 

REM HO AOX KE 

ENE OSOSINE LRO INE R, LLs INK F6 

WINDOW #0, 1, 40,2, #4 

FAFER Os ODFTGIN 0,0 

WINDOW #H1,1,40,1,1 

F'AF HL, Is PFEN #1, 0 

n CLS HI 

100 FRINT #1, "TELECFAN 5: Sortie CENTER) X Effa 
cer: BARRES 

110 WINDOW HE, 1, 40,25, 24 

120 PAPER HE, Le: FEN #2, 0 

LEO CLS #E 

LA PRINT HE, SPC CE) "Os NOTRAXX Le ELANCXKXXES: BLELI 
XXX 2: ROUGE": 

1930 CLS 

160 SPEED KEY 1,1 

170 Faælsks Ju VestO( 

180 FLOT X,Y,F 
190 REM 

200 RENM Entrées d'une touche 

BIO REM K&KXEXAEKXMEEXEKXEXX 

D ABSINEEVSLIF Az" THEN 270 

HO IF Aie" AND ARERUUEN THEN FeVAL CAS): GOT 
(189 
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EXERCICES EN BASIC POUR AMSTRAD 


240 AS=ASC(A#) 

260 IF AG=242 THEN IF X22 THEN Xe1:6070 180 E 
LSE X=X-1:G070 180 

260 IF AG=243 THEN IF X:658 THEN X=639:G0T0 1 

80 ELSE X=X+1:G0T0 180 

270 IF AG=241 THEN IF V£17 THEN Y=1l6:GOTO 180 
ELSE Y=Y-1:G60T0 180 

280 IF AS=240 THEN IE Y:291 THEN V=39%:G60TO 1 
90 ELSE Y=Y+1:GOTO 180 

290 IF AGS=32 THEN 150 

300 IF AS£+1Z THEN 190 

#10 WINDOW #0,1,40,1,25 

220 SPEED KEY 10,5 

#20 END 








VARIABLES 


F code de l'encre utilisée (0, 1, 2 ou 3) 
X,Y coordonnées du point à afficher 

A$ touche tapée par le joueur 

AS code ASCII de la touche tapée 


COMMENTAIRES 


170 :initialisation au centre de la zone de dessin, avec point 
d'affichage allumé. 

250-280  : les mouvements du point lumineux ne sont possibles que 
dans la limite de la zone d'affichage. 

290,300 :une pression de la barre d'espacement efface l'écran et 
repositionne le point au milieu de l'écran. Une pression 
sur la touche ENTER arrête le jeu. 





EXERCICE 5.8 


PROGRAMME 





10 REM 
20 REM GEOGRAFHIE DE LA FRANCE 
50 REM XX XX RON HO AOUOMHOKOHOM HN OK 


40 REM XX KR NHORNEKCKE NE NON CCC 
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SOLUTION DES EXERCICES 


JO INE ©Q,é6 

&O INE 1,24 

FO INE Si 

90 INK 2E,24,0 

SO SPEED INE 5,5 

100 PAFER 2% 

110 WINDOW #1, 1,40, 24,25 

120 PAPER #1, 1: FEN #1,0 

FO CLS:ICLS #1 

SCA: 1, 4 

ORIGIN -G9OXSCA, 420Xkx6CA 

REM 

REM Trace de la carte de FRANCE 
REM XX ke AONCKEOKOK KR HEOONOKOK NOK 
READ X,Y:FLOT XXSCA, -VYAGSCA, 1 
FOR Ie? TO 4% 

READ X,Y:DRAW XXSCA, —YXSCA 

NEXT I 

READ NVTL 

REM 

REM Choix d'une ville au hasard 
RE XX OO OKOK OH HOKCAOKHOONONONEOXONCOEOKCNX 





RESTORE 740 

FOR Ii T[O NYC 

READ VFS, XVC, YVC 

NEXT TI . 

FLOT XVCXSCAS, -YVCXSCA, S 

DRAUWR ©, Os: DRAWR O0, Ze DRAUR 2, Os: DRGUR 0,2 
INPUT #1, "Quelle est cette ville 5: ",VILS 
VILES=UPFERS (VILS#) 

REM 

REM Affichage du resultat 

FE AK MK KE ACKOKON KORG ACC ON K 

É9O IF VILS=VPS THEN MES="BRAVO Vous etes b 
on en GEOGRAPHIE" +CHERS# (7) ELSE MES="FALIX, Cet 
te ville est 2 MAVFSHCHRS# (7) 

400 FRINT #1,ME# 

HALO ASSINEEYSLIF ASE" THEN 410 

IF OASRCHRS C1) THEN 470 

:: FLOT XUCKSCA, -VYCKSCÉ, 

440 DRGUR 2,0: DRAUR GO, 2: DRGUWR 2,0: DRAWR 0, —È 
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EXERCICES EN BASIC POUR AMSTRAD 


AS CLS #1 
440 GOTO 270 
47O INE OLTINE 1,24: FAFER O:FEN 1 
480 CLS 

490 END 

500 REM 

FREM Contour de la carte 

REM AO ke OMOKOCNOK OK HACK 

DATA 2089,165,7246, 190 

DATA EE 

















DATA 
600 DATA 
&10 DATA 
DATA 
DATA LPO, EE 

DATA 160, 225, 169,210,:178,4210 
DATE 186,710, 199,212,216.219 
DATA 226,217,718,198,4168,1895 
DAT À 
DATA 
DATE 
REM 

REM Nombre et position des villes 
REM  K k Ok KM UC NCHKHEOK KE ACC HE EME AC HOHCTOX 
DATA & | 

Dé T6 RQE 15, 290 2 
DATE ; 
DATA 
DATE 
DATE 
DATA 
DATÉE 
DATA 





250,198, 260, 180 
3, 150,308, 165 








us 89,210 








VARIABLES 


SCA facteur d'échelle 
X,Y coordonnées graphiques d'un point à l'écran 
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SOLUTION DES EXERCICES 


| compteur 

NVIL nombre de villes dans la liste de DATA 

VP$ nom de la ville à trouver 

NVC rang de VP$ dans la liste de DATA 

XVC,YVC coordonnées graphiques de VP$ 

VIL$ réponse 

MES message 

A$ touche frappée au clavier 

COMMENTAIRES 

140 : le facteur d'échelle SCA permet avec les mêmes données 
numériques de dilater ou de réduire le dessin. 

170-220 : dessin de la carte. Le choix de l'origine (ligne 150) est tel 
que l'axe horizontal est situé en haut de l'écran et donc 
tous les points de la carte ont des ordonnées négatives. 

250-310 : tirage aléatoire du nom de la ville à découvrir. 

320-330 : positionnement d'un petit carré clignotant. 


370- 
430- 


500- 
700- 


400 : affichage du résultat à la réponse donnée. 


440 :on efface le point lumineux clignotant en coloriant en gris 
(couleur du fond) le rectangle précédemment dessiné 
(ligne 330). 

690 : coordonnées des 46 points définissant le contour de la 
carte. 


810 :liste des villes suivies des coordonnées de leur position. 





EXERCICE 5.9 


PROGRAMME 





19 
20 
50 
40 
WT) 
850 
70 
80 


90 


REM XX RH AH H NH OO KX 

REM X LOTO SPORTIF  * 

MAUR TTL IL111111111117 

ON EREAE GOSUB 590 

SYMEOL 250,813,8D,%E,%1B,%1E, 274, 848,880 
INE O,1% | | | 
INE 1,76 

INE 2,9 

FAPFER O:FEN 1 
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EXERCICES EN BASIC POUR AMSTRAD 


CLS 

FRINT TAB (14) LOTO SPORTIFS 

REM 

REM Affichage de la piste 

REMAKE HONOR EME XEROX 

WTIRMDON HO, LS AD, 6 

FOR ITæei TO 7 

WINDOW HI, 1,40, EKI+B,2XI+S 
ER HILS:FEN HI, 1 













HI USTNG HR La CHR CESO Es 

NEXT TI 

) CLS #0 

230 INFUT "Donnez un pronostic Cens1,7, 6) 8" 
sNOILNQNCE) NET) 

BAQ IF NI) EN C2) OF NOD)EN CE) OK NCdoeN CE) TH 
EN z0 

290 FOR Iæl TO 

260 IF NCT)EI OR NOT) ET OR NCIDESINT NC) TH 
EN 20 

27Q NEXT I 

280 FRINT 'ârrivee gagnante s "Us 

290 REM 

RENM Debut de la course 

REM HO OKON HONONONOKOHOKOMEHHEOXCK 





FOR I=1i TO 7:FOIDæI:NEXT I 

Hz INT CRNDX7) #1 

IF FCH)x3G THEN 740 

F CH) = (HD +1 

LOCATE #E,FOS CHE) 1, Le PRINT #K," CHARS (2 





20): 

290 IF FHISTES THEN 40 
290 NCENC+1 

AO IF NC=7 THEN 460 

410 IF NC£4 THEN FRINT Ka 
420 GOÜTO E40 


450 REM 

44 REM Fin de la course 

490 REM XXXKKKEXAMXXAXXX 

460 PRINT "Four continuer tapez une touche" 
470 FRINT "Four arreter tapez ENTER" 
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SOLUTION DES EXERCICES 


ra & Etes LEE] 
5) THEN 


4R0 












OS LEFEINT HIS" "S 
1,2, Le PRINT HI, CHRE(CHSONS 


tE Retour 
RE MT ONCE AO 
INE CG, LsPE 





CN LS WINDOW 1, 40, 1,25 


VARIABLES 


NC nombre de coureurs ayant franchi la ligne d'arrivée 

N tableau de dimension implicite contenant le tiercé joué 
| compteur 

P tableau contenant la position du coureur de rang | 

K rang du coureur qui avance d'une case 

A$ touche frappée au clavier 


COMMENTAIRES 


160-210 : affichage des 7 coureurs dans les cases départ et inscrip- 
tion des sept numéros en début de couloir. 

190 : le format utilise “*&" permet l'affichage d'un chiffre (#) 
et d’un caractère (&). 

230-260 : test de validité du pronostic d'arrivée. 

330-360  : un des sept coureurs, tiré au hasard, avance d'une posi- 
tion sauf s’il a atteint l'arrivée. 

380-410  :si un coureur franchit la ligne d'arrivée dans les trois pre- 
miers, son numéro est affiché. 
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EXERCICES EN BASIC POUR AMSTRAD 





EXERCICE 5.10 
PROGRAMME 









10 REM 

0 REM HOMO HORMONE HCROK MEHR KO NCKCX 

30 REM X  FICHIER/REFERTOIRE % 

A REP HO AO ACHO EEE OK CAC ACC NCKCHY 

30 REM 

&Q DIM ELEMS (500) 

MES (l)ætlLecture du fichier s " 

MES Cet Affichage du fichier ss " 
MES Ciiz"Insertion d'une fiche : " 
MES CH) =" Guspression d'une fiche : 
MES Co etEnregistrement du fichier à 
MES (CS) =" Fi 8 !" 

INFO OS INE 1,48 INE EE 63 INE ZI 
CLS 

WINDOW HI, 1,40,1,8 

FÊFER #1, O: FEN Hi, leCLS #1 

WINDOW #2 40,9, 22 

FAPFER  #: PEN #®, 1: CLS #2 

WINDOW #25, 1, 40,24, 29 
FAFER HT, O: PEN HE, 

REM 

EM Affichage du menu 
REM OXOX OK HO NEOACHOKOK NH X 
FEÉTINT HI, STRINGS (40, MK) 
FOR I#1 TO & 

60 FRINT #LSUX  MMESCI) TAB CE) 3 Ts SFACES CE) UX 
270 NEXT I 

260 PRINT #1, STEINGS (40, "K") 

290 CLS HE: INPUT HE, "Operation choisie (i-é4i 
: … F 

IF RESINTIRD OK REA OR Ré THEN 290 

IF Keé& THEN END 

ON KR GOSUR 250,480,4610,770,940 

GOT 290 

ENT 

FSQ REM 
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SOLUTION DES EXERCICES 


EEM Sous programme de lecture 

REM Eur cassette 

RE HONEOHEHCOK OKON NON NON CHE NO MONO OME AOONNCE 
INPUT HE, Nom du fichier :5 M",NFIC 
NFTCSEUURANETCSE 

CFENTN NPICSE 











440 LINE ENEUT #9, ELEMS (NREL } 
450 WEND 
480 CLOSE 
470 FE 
4 


IN 
LIEN 





Sous programme d'affichage 

00 REM du fichier 

“1.0 FE M XCHEHEACHONCNCONCHE ME MC ACKCHC NOK HOME HEC XX K 

320 CLS #3 

FRINT HZ: FRINT HE, "Four revenir au mer, 
pez une touche"CHES (7) 

IF NBEL&=O THEN 580 

FOR Isi TO NBEL 

FRINT HS, USTNCG OA Où Bts LT, ELEMS CT) 

HEXT TI 

ETS) IF INÉEY Sa UN OTHEN 590 

0 5 : 

ÉTAT. 
£10 
& 20 REM Sous programme d'insertion 

BEQ REM XHXKXXXXEREXEXEMAEXEXAAEXX 

&40 LE HE 

450 LOCATE HE, Les Los FRINT HE, "Four gortir du m 


ade insertion": PRINT #5, "reponder 2 XXX"CHRS ( 
7) 

60 FRINT KE 

670 NBELENBEL.+1 

880 PRINT #2,'"Fiche a inserer ss "ssLINE INPUT 
HE, ELEM# CNBEL.) 

490 IF ELEMS (NBEL) € EUXKX" AND ELEMS CNBEL)D < nm 
THEN 470 

700 NBELENREL. 1 

710 CLS #5 

720 RETURN 
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EXERCICES EN BASIC POUR AMSTRAD 


7ÈO REM 

740 KEM Sous programme de Suppression 

750 REM XX XX OK OKOKONKONOK HO HOK OK MOK HOHOK HOKONK KOAXK X 

760 CLS #S 

770 FRINT #4, "Numero de l'enregistrement" 

780 INFUT Hé, "a supprimer 5 ME 

790 IF ÉSFINT(CE) OF Eco OR ESNBEL THEN 890 
800 FRINT #2: PRINT HE, Enr MsEs" à PELEMS CH: 
PRINT #2 

810 INPUT #2,'"Four confirmer, tapez OUT 5 "UE 
EF 

850 IF REFS2 "OUT" AND REF$#< "oui" THEN 920 
F0 NBELE=NREL.-1 

840 FOR Ixk TO NHEL 

950 ELEMS (IT) SELEMS CI+1) 

860 NEXT I 

870 CLS #3 

880 RETURN 

890 FRINT #43, "SUPFPRESSTON IMFOSSIBLE"+CHRS 07) 
900 FRINT HZ, "Four revenir &l MENU, LAPez une 
touche" 

910 IF INEEYS="" THEN 910 

920 CLS HI 

920 RETURN 

940 KREM 

930 REM Sous programme d'enregistrement 

940 REM sur cassette 

970 REM XX OX NOK OK NON ACKONHOROKMOKKC HO AOKOHOHCR HOHONCKCX 

980 INPUT #2, "Nom du fichier 5 ".NFIC 

990 NFICBEUIMANFICS 

1000 QFENQOUT NFIC# 

1010 FOR Tei TO NBEL 

1020 FRINT #9, ELEMS# CI) 

1050 NEXT 1! 

1040 CLOSEQUT 

1090 RETURN 


VARIABLES 


MES$ tableau des messages 
R réponse au menu | 
K numéro de l'élément à supprimer 
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SOLUTION DES EXERCICES 


REP$ réponse de l'utilisateur 

NFIC$ nom du fichier à lire ou à enregistrer 

| compteur 

ELEM$ tableau contenant la liste des éléments 
NBEL nombre total d'éléments du fichier traité 


COMMENTAIRES 


10-330 


360-470 
410 


420-450 


460 

490-600 
620-720 
740-930 
830-860 
950-1050 : 


1000 


1040 


: programme principal, comprenant l'affichage du menu et 


le branchement (ligne 320) sur les différents sous-pro- 
grammes. 


: sous-programme de lecture du fichier sur cassette. 
: l'instruction OPENIN ouvre le fichier NFIC$ sur le canal 9 


en lecture (IN) et précise ainsi que l'échange des données 
se fait du lecteur de cassettes vers l'ordinateur. D'autre 
part, le point d'exclamation en début de la chaîne NFIC$ 
empêche l'apparition des messages usuels lors de l'utili- 
sation du lecteur de cassettes. 


: boucle WHILE/WEND. L'instruction EOF (End Of File : fin 


de fichier) indique la fin du fichier sur le canal 9 et permet 
de déterminer le nombre NBEL d'éléments contenus dans 
le fichier. En effet à chaque lecture d'un enregistrement et 
tant que la valeur de EOF est différente de —1 (instruction 
WHILE), la variable NBEL est incrémentée (ligne 430). 


: l'instruction CLOSEIN ferme le fichier sur le canal 9 en 


lecture. 


: sous-programme d'affichage du fichier à l'écran. 

: sous-programme d'insertion d'éléments. 

: sous-programme de suppression d'un élément. 

: après suppression d'un élément, tous les éléments sui- 


vants sont décalés d’un rang, sauf si l'élément à supprimer 
est le dernier du fichier. 

sous-programme d'enregistrement du fichier sur le lec- 
teur de cassettes. 


: l'instruction OPENOUT ouvre le fichier NFIC$ sur le canal 


9 en écriture (OUT) et précise ainsi que l'échange des don- 
nées se fait de l'ordinateur vers le lecteur de cassettes. 


: l'instruction CLOSEOUT ferme le canal 9. 


Remarque : pour que ce programme tourne sur un ordinateur de la 
famille AMSTRAD, équipé d'un lecteur de disquettes, supprimer les 
lignes 400 et 990. En effet, il n’est plus nécessaire de faire précéder le 


nom du fichier d’un 


lisation du 


“y" 


, aucun message n'apparaissant lors de l’uti- 
lecteur de disquettes. 
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EXERCICES EN BASIC POUR AMSTRAD 





EXERCICE 5.11 


PROGRAMME 












10 REM OX XX XX OX HONNEUR OX CEE 

20 REM X MATERMIND * 

FO REM XX XX OO KICK RENE X 

40 ON RBAKEAFE GOSLE 700 

0 REM 

80 FREM Donnees initiales 

70 REM XX HONOR OKON X 

90 SYMEOL 250, RCI, RO9, RFO, RAT SET, BEF RET7, SPF 
90 E$="EWRNVITGMO" 

100 DATA NOIR, O0, BLEU, €, BLANC, 6, ROUGE 3 64 VERT 4 
19, JAUNE, 24, GRIS, LE, MAGENTA, 8, ORANGE, 15 

110 FÜR IQ TO 8 





LE 
14 
150 REM Affichage des regles du jeu 

160 REM  XXKOX KO OHOH OK HOKOHOK MON HOMME M MOKCHEK OX 

170 FAFER O:BORDER O:CLS 

180 LOCATE 14,2% 

190 FOR ITe1i TO 10 

200 FEN CT MOD Œ)+i: PRINT MIDS C'MASTERMINDOST 
Lots 

#10 NEXT I 

Q LOCATE 1,35 : 

) FRINT "Four obtenir 2 !":FRINT 

FOR Ii TO 8 

JO FRINT TAB CIO) COLS CT) TE CO) tapez MsMIDEC 
F4, TI, 1) 

“60 NEXT T 

270 FKRINT 

290 FRINT "Four se deplacer à gauche  "sCHRSC 
242) 


#90 FARINT "Four ge deplac 








er à droite "sCHRS( 


"Four valider l'essai, tapez ENTER" 





242 





380 
90 
40 
&10 
&£E0Q 
4&E0 
&40 
450 
bé 0 
670 
&50 
#90 





SOLUTION DES EXERCICES 


FEINT "EB signifie BIEN FLACE" 

FRINT UM signifie MAL FLACE" 

FRINT 

FETNT "Four commencer tapez une touche" 
IF INÉEYSeNt THEN 270 
REM 

FEM Choix aleatoire de 
REM configuration à decouvri 

FE M CH HOME CHOCO OK HO CR HO KCHOE XKK 
RANDOMIZE (TIME) 

FOR Tel TO 5 

FCI) INT (ENDXS) +1 

NEXT TI 

FRE M 

REM Affichage de l'ecran de jeu 

FEM KAKEMMNKEREENEAEXEXXENEXEXX 

MODE © 

FRINT "Essai s"'SPFC (CE) 'Reponses" 

FRINT 

FOR Ie1 TO 7 

RE M 

GOSUE 740 Saisie de l'essai 

GOSUE 960 ‘Reponse d'’ AMSTRAD 

RE M 

IF ONBIENSS THEN FEÉINT "SAGNE": GOTO 660 
NEXT I 

PEN SZ: FRINT 

FRINT "Vous avez perdu 
FÉINT "il fallait donner cs" 
FRINT:FRINT SFC C6) 3: 

FOR ei TO 5 

PEN FCI): FRINT CHR# (145), 

NEXT TI 

FEM 

REM Retour en mode 1 

REM KOHOKOKONCK HONON KCHONOKK EX 

IF OINEEVS#ECSCHRS (15) THEN 690 
INE O,O:INE 1,274 

FAFER OPEN 1 

MODE 1 

END 

REM  HMOX KO HOHHONOMOKON NOK HOMO OK AC HO OK CN 
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EXERCICES EN BASIC POUR AMSTRAD 











* Gong programme ù 
ii Si tion de le nee 





CHEFS (1457, 


IF JS THEN J=5 

[FO JE1 THEN Jai 

PEN GiJ)eLOCATE ExXJ-1, VPFOS CHO): FRINT CHERS 

(HS) 

570 REM 

850 GESUPFFERS CINÉE Y#) 

90 IF AEEUMOTHE de 3e 

GO TE ABECHRS C1 THEN LOCATE ZX 1, VFCS CHO) 

PRINT CHARS CTA44TD x : RETUEN 

710 LF Ês CHERE ( E) THEN LOCATE ÆXJ- 1, VEOS (#0 
; F a. : 1: GOT 840 

DEC Lt THEN LOLCATE BXT- 1, VPFOS CHO 

DE FRINT CHERS (14% ao eo 840 

DEO CCE INSTR(ES, ASIE CCe0 THEN 989 

G40 (107) C 

9E0 GOT 840 

SO REM AKAXKKOKOK HOUR EURE X 

; REM XGous programme de 

380 REM  X COMpPar ais X 

970 ._REM EH CK 

ZUNE 1 

EH=O: NMÊLEO0 

FOR He1i TO 5 

IF OF CHieN CH THEN NATENENRTENS+I CCM) 

1040 NEXT H 

1050 FOR Hei TO 5 

1060 IF GCH)z-1 THEN 1100 

1070 FOR Ez1i TO 5 

1080 IF QC) EF CH) THEN NMALENMAL +13 Q CE) es 50 

TO 1100 

LOGO NEXT KE 

1100 NEXT H 

1119 REM 
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SOLUTION DES EXERCICES 


1120 FEM Affichage 

1150 REM XXXMNNKEX 

1140 FEN 2% 

1190 LOCATE 12, VFOS (HO) 
1160 IF NBIEN&QO THEN 1200 
1170 FOR Mei TO NBIEN 
1180 FRINT ME", 

1190 NEXT H 

LEO IF NMAL&O THEN 1240 
LE FOR Hel TO NMAL 





| 

Ï FRINT "M", 

1 3 NEXT H 

1240 FRINT: FRINT 

1240 RETURN 

VARIABLES 

B$ chaînes de caractères représentant les initiales des 8 cou- 


leurs utilisées. Comme B a été choisi pour désigner le bleu, 
W (White) a été utilisé pour désigner le blanc 

NBIEN nombre de pions découverts en bonne position 

NMAL nombre de pions découverts en mauvaise position 

|, J,K,H compteurs 
tableau contenant le rang des initiales des couleurs des pions 
de l'essai joué 


A$ caractère frappé au clavier 
CC position de A$ dans B$ 
P tableau contenant le rang des initiales des couleurs des pions 


de la configuration à découvrir 
COL$ tableau des couleurs utilisées 
COL code de la couleur COLS$ 


COMMENTAIRES 

100 : les couleurs utilisées et leurs codes associés sont passés 
par une liste DATA. 

110-130 : lecture des DATA et affectation des couleurs d'encre. 

150-360 : affichage des règles du jeu. 

380-450 : choix de la configuration à découvrir. 

570 : si en moins de 7 coups, les cinq pions sont bien placés, 


le joueur a trouvé la configuration à découvrir et le mes- 
sage GAGNE s'affiche. 
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630-650 


740-950 
790-820 
860 


900 


910-920 
930 


940 


960-1250 
1010-1040 


1050-1100 
1060 


1170-1190 
1210-1230 


: affichage de la configuration à découvrir après 7 essais 


infructueux. 


: sous-programme de saisie d’un essai. 
: l'essai est initialisé (5 pions blancs). 
: la position du pion dont la couleur peut être choisie est 


repérée par un point d'interrogation. 


: si le joueur tape sur la touche ENTER, l'essai est validé. 
: traitement des touches de déplacement gauche et droit. 
: détermination de la couleur à partir de l'initiale entrée 


au clavier par INSTR(B$,A$) qui donne la position de A$ 
dans B$ et donc le rang de la couleur choisie dans le 
tableau COLS$. 


:le code de la couleur choisie pour le pion de la Jième 


position est affecté à l'élément de rang J du tableau Q. 


: Sous-programme de comparaison des tableaux P et Q. 
: calcul du nombre de pions découverts et bien placés. 


On compare pour cela position par position les tableaux 
P et Q. Si le résultat est vrai, on met à (—1) l'élément de 
Q 


: calcul du nombre de pions découverts et mal placés. 
:les pions découverts bien placés ne sont pas pris en 


compte. 


: affichage d'autant de lettres B que de pions bien placés. 
: affichage d'autant de lettres M que de pions mal placés. 





EXERCICE 5.12 l 


PROGRAMME 


10 REM 


20 KEM TOURS D HGNDI 


F0 KREM 
40 REM 


KXXEKEEMENKAX 


20 REM Valeurs initiales 


69 REM 


AOKC AH KCHEOXCK ANNE OACHOX 


70 SYMECL PAS OO, OO SPF, FF, &FF,@FF 
80 NEANN=S 
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SOLUTION DES EXERCICES 


PQ TRE CO) ENITILIMETERS (1) =" O0O0OOMITERS CE) = "0000 
Q" 

100 INE OSISINE L,RALINE SO: INE 5,8 

110 FAFER 2 

120 WINDOW #1, 1, 40,28, 4 

150 FAFER #1,0 

140 ZÛNE 15 

150 FRINT CHARS CRE) +CHR# (1) 

LéQ KEM 

170 REM Dessin des tours 

180 REM 44 XX CON NOK NOK ACACX 

190 GOSUE S10 

200 REM 

#10 REM Reponse du joueur 

220 REM KXKEXERXAXENENEEXX 

e FOR Tel TO LOOOINEXT TiCLS #1 

LOCATE H1, Sc: FRINT #1, "Deplacemernt depui 
S la tour "3 

IQ ASSINEEVESIF ABENM THEN 250 

SO IF Age" " THEN 490 

PO IF ABEENIT AND ASSET AND ASEENE" THEN € 





280 FRINT #R1,8$8:LOCATE #1,10,Z2:FRINT #1, "jus 
Ua la tour M"; 

290 BSSINEEYS:IF B$="" THEN 490 

200 IF B&SE"I" AND BEST" AND BEST" OR R$= 
A THEN 290 

FARINT 41, H 

REM 

REM Traitement de la reponse 

REM CH 4OX AONOHOK NONOKOK HOHOK ACHOK KOHOE KOK XX 

REM 

ND VAL CAS) - LE NASVAL CEE) —1 

FNDEINSTE TRS (ND) MI": FNAEINSTR (TRE (NA), 








Ah 

280 IF FND&O OK CFNDSFNA AND FNR£#OQ) THEN FRT 
NT #1,'"IMFOSSIBLE !''CHK#(7): GOTO 250 

290 PNEFNDEsL#= COM RSETES# (ND) 

400 GOSUR 750 calcul de TR (ND) 

410 TRS (ND) =RS 

HO FNEPNDeLSR MIE RESTES (NA) 

45Q GOSUR 750 calcul de TRS (NA) 
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440 TRS CN RE 

450 GOSUE 790 ‘deplacement de l'anneau 
460 IF TR&CE) EE +" 11111" THEN 250 

470 LOCATE 17,18: FRINT "GSAGNE"+CHRS (7) 
490 FRINT:FAEINT 

ADO PRINT CHRS C2) +CHRS# (0) 

END 

RE M 

REM Gous-programme de “dessin 
REM des 35 tours et des S anneaux 
REM HCOMONCHOM KOHOMKOHE HORMONE NOM NCCMENOKNEK 
RE M 

ELS 

FEN CS 

FRINT:FARINT 

FOR lei TO & 

FOR Jel TO GSsFRINT SFACES (é-T) +STRINGS CEX 
T,CHRS#C1A4M)),EINEXT J 

NMEXT T 

LOCATE LE 

FOR Tel TO NEBANN 

FEN 1 

0 FRINT SPFACES CS T0) +STRINGS CEXTAR, CHRS CRE) 
) 

B&Q NEXT I 

BY LOCATE 1,11 

4980 FOR Jel TO € 

) FRINT SFC(4)9J, 











2, Les FRINT TOURS D°HANOT "3: 
RETLEN 

REM 

REM Lalcul de KR$ 

F0 REM 4 X 4 OX OX ONX OKON X 

F0 IF FNEL AND FNES THEN RSeLEFTS# CRE, FN) +L 
BIMIDECES, FN+41) : RETURN 

770 IF FNel OF FN&Q THEN RéeL@+MIDS CES, 2): RET 
LIEN 

790 IF FNeS THEN RS=LEFTS CRE, 4) +L$3: RETUEN 

790 KEM 

800 REM Déplacement de l'anneau joue 

BIC FEM XCKKOKCHA MON OX EOX OKON OK HOMME KR X 
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SOLUTION DES EXERCICES 


320 PRINT CHRE (29) +CHRS (0) 

So LOCATE 1+1ZXND, S+PND: PEN Œ:FRINT SFACES (5 
—PND) +" MSTRINGS COXPND, CHRS (145))0 0 

840 PRINT CHRS (22) +CHR# (1) 

960 LOCATE 1+1EXNG, FND+2: PEN 1e PRINT SPACES (5 
ND) +STRINGS CRXPND42, CHRE (245) ) 

860 RETURN 





















VARIABLES 

NBANN nombre d'anneaux 

TR$ tableau donnant l’état d'occupation d'une tour 

A$,B$ touches frappées 

LJ,T compteurs 

ND numéro désignant la tour de départ 

NA numéro désignant la tour d'arrivée 

PND position de l'anneau supérieur de la tour ND 

PNA position de l’anneau supérieur de la tour NA 

PN variable de position 

R$ variable désignant un élément de TR$ 

L$ variable alphanumérique 

COMMENTAIRES 

90 :initialisation de TR$. TR$(0)=11111, TR$(1)=00000 et 
TR$(2)=00000. 

150 : passage en mode transparent de façon à superposer le 


dessin des anneaux sur les tours. 

210-320 : saisie de la réponse du joueur dans la fenêtre 1. 

380 : si PND est supérieur à PNA, le joueur essaie de superposer 
un anneau sur un anneau plus petit. Si PND est nul, le 
joueur essaie de déplacer un anneau depuis une tour vide. 

390-440 :le sous-programme (ligne 730-790) effectue le change- 
ment dans R$ de l'élément de rang PN et le remplace par 
L$ : L$= “0” si l'anneau est à enlever et L$="1" si l'anneau 
est à mettre. Ce sous-programme est exécuté la première 
fois pour la tour ND et la seconde fois pour la tour NA. 

460 : test pour savoir si le joueur a gagné. 

510-720 :sous-programme de dessin de l'écran initial de jeu. 
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CONSEILS 
DE LECTURE 


Pour maîtriser le Basic Amstrad, connaître toutes les finesses de 
la programmation et découvrir le système des CPC 464, 664 et 6128, 
P.S.I. vous propose une palette d'ouvrages utiles. 


POUR MAIÏTRISER LE BASIC AMSTRAD 





O0 Découverte de l’'Amstrad -— Daniel-Jean David (Editions du P.S.I.) 
Une découverte exhaustive et claire des CPC 464, 664 et 6128, un 
apprentissage progressif du Basic Amstrad pour débutants 
complets. 














Basic Amstrad, CPC 464, 664 et 6128 - 1. Méthodes pratiques — 
Jacques Boisgontier et Bruno Césard (Editions du P.S.I.) 

Pour ceux qui ont déjà pratiqué un Basic, un ouvrage de 
perfectionnement du Basic Amstrad illustré par de nombreux 
programmes-exemples. 





D BASIC Amstrad, CPC 464, 664 et 6128 - 2. Programmes, par Jacques 
Boisgontier (Editions du P.S.l.) 
Un excellent complément du « Méthodes pratiques » permettant 
de mettre en pratique vos connaissances en BASIC Amstrad. 


EXERCICES EN BASIC POUR AMSTRAD 


POUR MIEUX PROGRAMMER VOTRE AMSTRAD 





5 102 programmes pour Amstrad — Jacques Deconchat (Editions du 
PS 
Les bases de la programmation en cinq niveaux de difficulté pour 
apprendre le Basic Amstrad en jouant. 











Super jeux Amstrad — Jean-François Sehan (Editions du P.S.I.) 
50 programmes commentés pour vous permettre de créer vos 
propres applications ludiques. 





0 Amstrad en famille — Jean-François Sehan (Editions du P.S.I.) 
40 utilitaires de gestion, de jeu, etc. pour vous aider à organiser 
efficacement vos activités à la maison. 





CO Basic +, 80 routines sur Amstrad — Michel Martin (Editions du P.S.I.) 
Pour pousser votre Amstrad au maximum de ses capacités : 80 
routines de simulation d'instructions qui n'existent pas en Basic 
Amstrad. 


POUR PROGRAMMER EN LANGAGE MACHINE 


0 Assembleur de l’Amstrad — Marcel Henrot (Editions du P.S.I.) 
Une initiation à l’assembleur du Z80 avec de nombreux 
programmes en langage machine. 





0 Clefs pour Amstrad - 1. Système de base - Daniel Martin (Editions 
du P.S.I.) 

Mémento présentant synthétiquement le jeu d'instructions du Z80, 
les points d'entrée des routines système, les connecteurs et 
brochage, etc. Le livre de chevet du programmeur sur Amstrad. 





O Clefs pour Amstrad — 2. Système disque — par Daniel Martin 
(Editions du P.S.I.) 
Les principales adresses des 16K de ROM disque, agrémentées de 
commentaires indispensables au programmeur sur Amstrad. 


251 


EXERCICES EN BASIC POUR AMSTRAD 


POUR ETRE INFORME REGULIEREMENT DE L'ACTUALITE DES 
MICROS AMSTRAD 











MICROSTRAD revue bimestrielle du Groupe Tests. 

Pour exploiter au mieux les capacités de votre micro, vous trouverez 
au sommaire de chaque numéro un rendez-vous avec les rubriques 
clés : 





— DECOUVREZ... LA FACE CACHEE DE VOTRE CPC : astuces, idées, 
conseils, tout pour comprendre votre micro, son anatomie, son 
fonctionnement, sa programmation et exploiter ses capacités 
graphiques et sonores. 


— DOMPTEZ... VOTRE CPC 464, 664 OÙ 6128 : passionnés, petits 
ou grands, spécialistes ou débutants, une information pratique 
et la compétence d'experts au service de votre micro. 


— PROGRAMMEZ... VOTRE MICRO AMSTRAD : dans chaque 


numéro de MICROSTRAD, un cocktail de programmes (dessins, 
jeux, utilitaires, gestion, etc.) et des trucs de programmation. 
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EN CASE EAAEUR 


Tous les listings de cet ouvrage sont des originaux sortis 
directement de l'imprimante. Toutes les solutions des exercices 
proposés ici ont été testées attentivement sur Amstrad. Toute 
erreur serait donc exceptionnelle. 

Si, malgré tout, l’un des programmes ne fonctionnait pas, 
assurez-vous d’avoir correctement recopié le listing en Basic. 

Voici quelques conseils qui vous aideront à déceler l’er- 
reur : 


— ne confondez pas 0 (zéro) et O (lettre) ; 

— assurez-vous d’avoir placé correctement les “." et “;" néces- 
saires ; 

— comptez les lignes du programme à recopier et faites atten- 
tion à ne pas en oublier ; 

— donnez toujours le même nom à vos variables d'un bout à 
l’autre du programme. 


Et surtout... Armez-vous de courage ! 
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EXERCICES EN BASIC POUR AMSTRAD 





V. 


otre avis nous intéresse 


- Pour nous permettre de faire de meilleurs livres, adressez-nous vos critiques sur le présent livre. 
- Si vous souhaitez des éclaircissements techniques, écrivez-nous, nous adresserons votre demande 
à l’auteur qui ne manquera pas de vous répondre directement. 


- Ce livre vous donne-t-il toute satisfaction? 


























- Ÿ a-t-il un aspect du problème que vous auriez aimé voir aborde ? 

















[] publicité 

[] catalogue 

[] boutique micro 
[] autres 


lesquels ? 


Comment avez-vous eu connaissance de ce livre? 


[1 cadeau 
[] librairie 
[] exposition 





Avez-vous déjà acquis des livres PSI? 








qu’en pensez-vous?‘ 














Nom 


__777777_ Prénom _ 





Adresse . 





Profession . 





Centre d'intérêt 








L= 














CATALOGUE GRATUIT 


Vous pouvez obtenir un catalogue complet des ouvrages PSI, sur simple demande, où en retournant 
cette page remplie à votre libraire, à votre boutique micro ou aux 


Editions du PSI 
BP 86 
77402 Lagny-sur-Marne Cedex 





PaX 





EXERCICES EN BASIC 
POUR AMSTRAD 











D... 


Den crise 


dVEG dMOUr Dar : 


PAM=== 


a 








= 





TA 
Le: 


https://acpc.me/ 





